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CHAPTER ONE 

RUN TIME LIBRARY STRUCTURE 



The FORTRAN IV Run Time Library allows the user to execute FORTRAN programs in 
either a single -task or multitask real time environment. In addition to the 8K Stand Alone 
FORTRAN, operating systems supported are Data General Corporation's SOS (Stand Alone 
Operating System), RTOS (Real Time Operating System), and RDOS/MRDOS (Real Time Disk 
Operating System and Mapped Real Time Disk Operating System. ) 

All routines in the Run Time Library are reentrant and relocatable, making them suitable 
for use in time-sharing environments. The stack structure of the library is fundamental 
to its reentrancy, as all variables not declared as being in COMMON storage are stored on 
the stacks. 

The appropriate version of the Run Time Library must be configured with the operating 
system being used. Certain routines, found in FORT1. LB, FORT2. LB, and FORT3. LB 
are common to all versions of the Run Time Library. The diagram below 
illustrates which libraries are used with which operating system. Note that RDOS 
and RTOS use FMT. LB and that MRDOS is supplied with MFMT. LB instead. Additional 
libraries containing the multiply divide routines may be supplied according to customer 
configuration requirements. These libraries are: SOFTMPYD. LB, HMPYD. LB, NMPYD. LB. 

For the purpose of discussing the FORTRAN IV Run Time Library, the SOS single task 
environment may be considered a subset of the RTOS and RDOS single task environments. 
Except where noted, discussions of RDOS and RTOS single task FORTRAN are also 
applicable to SOS. 
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DATA STORAGE 



Fixed Point Numbers (Integers) 



A fixed point number is represented by a 16 -bit word, with bit containing the sign 
(0 for positive, 1 for negative). Bits 1-15 express the magnitude of the number in two's 
complement notation. The magnitude ranges from -(2 15 -1) to (2 15 -1), or -32, 767jq to 
32,767jo. The representation for zero is a word consisting of all zeroes. (100000 is 
an illegal number. ) 



Note that the FMT libraries for RDOS and RTOS are different. Other libraries are the same. 



1-1 



DATA STORAGE (Continued) Licensed Material - Property of Data General Corporation 

Fixed Point Numbers (Integers) (Continued) 



Two's Complement Magnitude 



12 3 15 

where S = for positive, 1 for negative 



Real Numbers 

Real numbers may be either single or double precision, in packed or unpacked form. 
Numbers on the number stack are always unpacked; all other numbers are usually in 
packed form. 

Single precision floating point numbers (SPFL) in packed format are stored in two 
sequential sixteen bit words, with the high order word preceding the low order word in 
memory. Bit contains the sign (0 for positive, 1 for negative); bits 1-7 represent the 
exponent, and bits 8-31 are the mantissa. 

The exponent is expressed in excess 64 form; the exponent is to the base 16, to which is 
added an offset of 100 . A negative number is formed by setting the sign bit of the 
corresponding positive number. 

Zero is represented as two sequential all zero words, but any SPFL number input to a 
routine will be considered zero if it has an all zero mantissa. 

All SPFL numbers input to the library routines must be in normalized form; in addition, 
all floating point numbers in computations are maintained in normalized form. An SPFL 
number is considered normalized if there is at least one binary 1 in any of the first four 
bit positions of the mantissa (bits 8-11). The range of values of an SPFL number are 
2.4*10~ 78 to 7.2*10^. with significance in excess of 6 decimal digits. 

Double precision floating point real numbers (DPFL) in packed form are stored in four 
sequential sixteen bit words. The sign and exponent are stored in the same manner as 
for packed SPFL numbers. The remaining 56 bits express the rest of the mantissa. 
Rules for normalization and expressing negative numbers and zero are the same as for 
SPFL numbers. The range of values is identical to the range for SPFL numbers. 2.4*10" 
to 7.2*10 7 ^, with significance in excess of 16 decimal digits. 

Complex Numbers 

Single precision complex numbers in packed format consist of two sequential packed 
SPFL numbers, the high order portion representing the real portion of the number and 
the second representing the imaginary part of the complex number. Four sequential 
memory locations are required, and the bit definitions, range and significance of the real 
and imaginary parts are the same as those for SPFL numbers. 

Double precision complex numbers in packed format consist of two sequential packed 
DPFL numbers, the high order portion representing the real portion of the number and 
the second representing the imaginary part of the complex number. Eight sequential 
memory locations are required, and the bit definitions, range and significance of the 
real and imaginary parts are the same as those for DPFL numbers. 
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BYTE MANIPULATION 

For processing 8-bit bytes, a byte pointer is used in which bits 0-14 are the address of 
the memory location that contains or will receive the byte, and bit 15 specifies which half 
(0 left, 1 right). Note that this is exactly the reverse of the convention described in 
"How To Use the Nova Computers". In order to insure that packing occurs left to right 
"' u^'-wj.uua.i.v wiui uit ^uiiaci ouunuicj * i s\ i ivi x tonuuiu ue uiciuueu in any source 
program which generates ASCII text messages. 
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CHAPTER TWO 
STACK STRUCTURE AND LINKAGE 



In a multitasking environment, the Run Time (RT) initializer partitions the Run Time Area 
into equal segments, one segment for each task specified at the beginning of the FORTRAN 
program. Each run time segment has a link to the following segment built into its first 
word, and a flag bit is allocated to indicate whether the segment has yet been assigned to 
a specific task. Note that the segmenting of the Run Time Area is determined by the number 
of tasks specified, not by the number of tasks actually active at any given time. 

Each segment has an SP Stack, Number Stack, and Run Time Stack. The SP Stack is 40 8 
words in length, and the Number Stack is 330 8 words; the Run Time Stack occupies the 
rest of the segment area. The Number Stack size may not be adjusted, and the allocation 
of a selected Number Stack may not be omitted. 

Each segment is preceded by an eight word state save area, containing a family of pointers 
and displacements to describe it uniquely. These stack pointers and flags are FSP, . NDSP, 
AFSE, SP, QSP, .OVFL, .SVO, and NSP. 

SP STACK 

The SP Stack is a block of 40 g sequential locations with a page zero pointer, SP; it is used 
for general purpose temporary storage, primarily by the single and double precision 
routines. The following example shows how it might be used to save and then restore AC1: 

STA 1,§SP 



DSZ SP 
LDA 1,@SP 

SP Stack overflow is a fatal error and is undetected by the library routines. 



NUMBER STACK 

The Number Stack is a 330g word block of locations reserved for the storage of numeric 
values. The numbers may be I/O for the arithmetic routines or temporary storage for 
computations from the routines. The entire storage area of the number stack need not be 
used. The number stack expands dynamically as numbers are loaded onto it and contracts 
as they are removed; however, it never exceeds its maximum of 330g words. The stack is 
built in the direction of increasing addresses, with . NDSP pointing to the end of the stack 
and NSP pointing to the current top of the stack (the most recently loaded number). 

All numbers on the stack are stored in sequential six word frames (or multiples of six 
word frames), illustrated in the following diagrams. An attempt to load a number onto an 
already filled number stack will result in error message FENSO. No check is made for 
stack underflow, an attempt to load a number below the first frame on the stack. 
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Unpacked SPFL Number Map 
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Unpacked DPFL Number Map 

An integer to be loaded onto the number stack is first converted to an unpacked SPFL 
number. Single precision complex numbers are composed of two sequential unpacked 
SPFL numbers; the first (topmost in core) SPFL number represents the imaginary portion, 
and the next SPFL number represents the real position of the complex number. 



RUN TIME STACK 

Each Run Time Stack consists of one or more FORTRAN stack frames. The Run Time 
Stack expands and contracts dynamically with the execution of a main program, expanding 
when more nests of subroutines are called or as subroutines are called which demand 
temporary storage. As the Run Time Stack within a given segment expands, any FORTRAN 
stacks created earlier for subroutines already executed are overwritten by the new stacks. 
The stack is built in the direction of increasing memory addresses, and stack overflow 
occurs if more storage area than memory available at run time is demanded. . AFSE is 
a word used to determine die end or uppermost memory location available for the Run 
Time Stack. 

FORTRAN Linkage Stack frames are variable length blocks of sequential locations 
allocated for use by the main program and each run time subroutine requiring temporary 
storage. Each FORTRAN frame within a run time stack consists of an initial llg word 
header; most routines also require a varying length series of temporary locations following 
each header. 
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RUN TIME STACK (Continued) 

Each header location is used to store a specific type of information pertaining to the 
subroutine that owns it, and each header location is at a fixed displacement from a pointer 
called the current FSP. 

PARF, the FORTRAN parameter tape, defines FSP to be stored in location 16 8 , and also 
defines the fixed displacements and mnemonic assignments of each location in the stack 
header. These mnemonic assignments and fixed displacements from FSP are listed below: 

FLGT -200 Length of variable portion of the stack frame. 

FOSP -177 Old FSP. 

FPLP -176 Number of arguments copied, if . FARL or . FARG 

copied the argument list. 

FEAD -175 Entry address to the last routine called by this routine. 

FCRY -174 State of carry at the time this routine issues a subroutine call. 

Bit 15=0 if carry was 0. 

FACO -173 Contents of ACO when this routine issues a subroutine call. 

FAC1 -172 Contents of AC1 when this routine issues a subroutine call. 

FAC2 -171 Contents of AC2 when this routine issues a subroutine call. 

FRTN -170 Address of next sequential instruction when the routine issues 

a subroutine call. 

The parameter stored in location 16 g is actually an address which is the FSP pointer of 
the current routine. It is this address from which the fixed displacements are calculated 
in order to determine the effective addresses of the header locations. 

Following FRTN is the series of temporary locations used for general purpose storage. 
The first of these is called FTSTR or TMP. The calling routine's accumulators, carry and 
return address are always recoverable from its stack header at locations FCRY through 
FRTN. FPLP is not currently used by the library routines. 

There is a page zero pointer, called QSP, which may reside anywhere from 20 8 through 
377 8 , that points to FAC2. This is the location where AC2 will be stored should the 
current routine call out, and it tracks FSP by an offset of -171 8 . This pointer is used 
for immediate temporary storage by the FORTRAN linkage subroutines. For example, 
STA 2, @QSP frees AC2 while STA 2, @FSP is not acceptable. 

The stack mnemonics are really negative displacements which are added to the indexable 
center (FSP) of the current stack to obtain the effective address locations used for header 
and temporary storage. 

In every case upon subroutine entry, AC2 will then be set to contain a pointer to the 
calling program's stack frame (the old FSP) and AC3 will contain a pointer to the called 
routine's stack frame (new FSP) if one has been allocated, or -1 if no frame has been 
allocated. Upon return to the caller, carry and all registers except AC3 will be restored 
to their original values. AC3 will contain the caller's FSP. 



086-000033-00 updates 093-000068-05 2-3 



Licensed Material - Property of Data General Corporation 

STACK ALLOCATION IN A SINGLE TASK ENVIRONMENT 

In single task environments there is a single SP Stack, a variable length Number Stack, 
and a single Run Time Stack. The stack structures and maintenance are essentially the 
same as those in a multitask environment. However, since there is only one run time 
stack segment, it is not necessary to have the eight word save area or a link to the next 
segment. 

The Number Stack in a single task environment may be variable length. The default 
length is 630 g locations, but the size may be redefined by the user at assembly time by 
means of the following statements: 

. ENT . FLSZ 

.FLSZ = n 

where n represents an absolute integer expression that can be evaluated at assembly 
time. ~The maximum length of the number stack will then be equal to 2*n+30g. (These 
two statements might be included in the FORTRAN source program, with an A in column 
one, so that they will be passed on to the assembler directly; see the FORTRAN IV User's 
Manual. ) 

STACK ALLOCATION IN A MULTITASKING ENVIRONMENT . 

Stack allocation in a multitasking environment is illustrated on the following page. 
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STACK ALLOCATION IN A MULTITASKING ENVIRONMENT (Continued) 
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STACK ALLOCATION. I^A^LJTTASKI NG ENVIRONMEN T (Continued) 
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INTER -SUBROUTINE LINKAGE, FLINK 



The FLINK module of the run time library contains entries which enable the calling of other 
library routines and perform all required stack frame creation/deletion and maintenance 
functions. FLINK forms the nucleus of the run time subroutines' communications facility. 

FLINK Entries 



i^ULm^oi 



I Tarn \ 



normally relocatable (. NREL) locations outside page zero. Those with . ZREL entries must 
be specified in an . EXTD statement, while those with . NREL entries require . EXTN state- 
ments. Following is a list of the mnemonic entries of the FLINK module: 



rvmt 
. LJS\ 1 IN 


. 1J./Y LIS 


FCALL (JSR @. FCALL) 


. FCALL 


FRCAL 




FSAV (JMP @. FSAV) 


.FSAV 


FRET (JSR @. FRET) 


.FRET 


FQRET 





FRCAL and FQRET also have page zero entries, but these have not been specified with an 
. ENT statement and are not available for programming use. 

The purpose of each FLINK entry is outlined below: 

Entry Purpose 



FCALL 

(or JSR @. FCALL) 

FRCAL 



Calls a library routine by its . NREL entry 
point. Also performs FSAV functions. 

Calls a library routine with its .NREL entry 
contained in AC2. Also performs FSAV 
functions. 



FSAV 
(or JMP i 



, FSAV) 



Maintains the caller's header, allocates 
a frame for the called subroutine, and 
updates FSP. 



FRET 
(or JSR i 

FQRET 



. FRET) 



Restores control to the caller, restores 

the caller's registers and carry, updates FSP. 

Provides a quick return to a caller when 
the called subroutine has no stack frame; 
restores the caller's registers and carry. 



FSAV and an integer stack length word must immediately precede any subroutine which has a 
page zero entry point. The method of calling such a routine is JSR @. ADR where . ADR 
represents the page zero address containing two less than the entry point: 
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.ZREL 
.SBR: SBR-2 



.NREL 
(page zero call) JSR @. SBR 



FSAV 

N ; Stack Length Word 

ggj^. ; True beginning of the subroutine 



FRET (or FQRET) 



Stack Length Word 

The Stack Length Word (SLW) immediately precedes the true beginning of a called subroutine and 
may be any positive integer, zero or -1. If the SLW is -1, no stack header or temporary storage 
locations will be allocated for the called subroutine, and no further calls can be made from the 
called routine. Subroutines which have a -1 SLW use the FLINK subroutine FQRET for exit and 
return to the next sequential location after the original subroutine call, unless the user modifies 
FRTN. Subroutines with a -1 SLW typically provide quicker call and return to the caller, since 
no creation or maintenance of a stack for the called subroutine is required. 

If the SLW is either zero or a positive integer, a new stack frame is created for the called 
subroutine, and the subroutineFRET must be used to provide a return of program control to the 
caller. If the SLW is zero, only a stack header is created, providing for the storage and 
restoration of the values in accumulators ACO through AC3 and the state of carry should this 
subroutine make a call to another routine. 

If the SLW is a positive integer, a stack is created with both a header and the specified number 
of temporary storage locations. 

Subroutine Calls 

Whenever one subroutine with a stack allocated for it calls another subroutine with a stack, the 
contents of ACO through AC2,carry, and the return address of the call are stored on the caller's 
stack, AC3 is set to the FSP value of the stack belonging to the new called subroutine, and AC2 
is set to the FSP of the caller's stack. Should the subroutine have no stack allocated for it, AC2 
is set to the caller's FSP but AC3 is left free for general purpose use. 

If a subroutine in the library has no page zero entry, the FCALL entry of the FLINK module may 
be used to perform the subroutine call: 

FCALL 
SBR 

where SBR represents the . NREL entry point to the routine. Subroutines called by FCALL need 
not be preceded by FSAV, as FCALL performs the functions of FSAV; however, such subroutines 
must be preceded by a stack length word. Subroutines which have normal entry points in page 
zero can also be called by means of FCALL to the . NREL entry point. Note however that this 
type of call requires 2 words as opposed to 1 word for the alternate call. 
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Subroutine Calls (Continued) 



The FLINK module contains one other subroutine which permits the calling of a subroutine by 
its . NREL entry point: FRCAL. Subroutines called by means of FRCAL must have their entry 
points preceded by appropriate SLW's and, as with FCALL, no FSAV is needed preceding the 
SLW. FRCAL is not followed by the name of the subroutine to be called; instead, AC2 is set 
to the address of the subroutine, and then FRCAL is issued. FRCAL accomplishes the same 
functions as FCALL. 



FORTRAN ADDRESSING 

The placing of current FSP values in AC3 and next -to -most-recent values of FSP in AC2 by 
F LINK, per nuts an addressing scheme called FORTRAN ADDRESSING, which is used by the 
library and the FORTRAN Compiler. 

FORTRAN ADDRESSING extends the NOVA family addressing scheme in two ways: 

1. Variables on the stack are referenced relative to that stack's FSP. 

2. Full word addressing for all absolute addresses is effected by subroutines . LDO 
and . STO. 

Since NOVA family computers can address 256-^q words in an indexed instruction, by using a 
bias of -200 through +177, each address on the stack can be referenced by using the centerpoint, 
FSP.and an offset stack displacement. Indirect stack displacements are also generated for 
dummy arguments of a function or a subroutine. Stack addresses are encoded as being between 
and 3773 inclusive, or as between 100000 g and 100377g (indirect addressing; the address of 
a variable, not the variable itself). FORTRAN ADDRESSes, when referring to locations on a 
frame, are equal to the displacement relative to FSP, minus FZD (=-200). Thus the FORTRAN 
ADDRESS of FLGT (=-200, see PARF) is equal to 0, since FLGT - FZD = -200 -(-200)= 0. 
Using similar reasoning, all direct FORTRAN stack ADDRESSes are positive, with a range of 
through 377o inclusive. 



FORTRAN 
FORTRAN 
FORTRAN 
" FORTRAN 
FORTRAN 
FORTRAN 

FORTRAN 
FORTRAN 
FORTRAN 

FORTRAN 



ADDRESS 


FLGT 


N, 




ADDRESS 1 


FOSP 




ADDRESS 2 


FPLP 




ADDRESS 3 


FEAD 




ADDRESS 4 


FCRY 


> 


ADDRESS 5 


FAC0 


ADDRESS 6 


FAC1 




ADDRESS 7 


FAC2 




ADDRESS 10 


FRTN 




ADDRESS 11 


FTSTR or TMP 






• 





Header 



FORTRAN ADDRESS 200 



FSP 



2-9 



Licensed Material - Property of Data General Corporation 



FORTRAN ADDRESSING (Continued) 



FORTRAN ADDRESSes greater than 377,, are treated as absolute . NREL addresses. The 
following chart illustrates the decisions made by library routines in interpreting FORTRAN 
ADDRESSes: 



1 



7 8 



FORTRAN ADDRESS, FADR 



15 



Given a FORTRAN ADDRESS, FADR 
to resolve 



Yes 




No 



FADR+ (current FSP) -200 is 
the partially resolved a ddress. ADR 




No 



Yes 



(ADR 



4 



-►FADR 



ZJ 



ADR is resolved 
absolute address 



Since the most recent FSP is always placed in AC 3 by the linkage routines (FLINK), any of 
377 locations on a frame can be addressed in such instructions as: 



which is equivalent to 



LDA 0,-167,3 
LDA0.TMP.3 



The variable nature of the length of a stack frame does not preclude the possibility of a stack 
frame length exceeding 377 g locations. If frames exceed 377 g locations, variations on the 
FORTRAN ADDRESSing scheme must be employed, possibly by placing pointers to new index 
values in the frame so that all locations may be accessed: 
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FORTRAN ADDRESSING (Continued) 



Over -size Frame 



FSP- 



New Index . 



Header 



New Index 



377„ locations 



FORTRAN array handling presents another means of accessing locations on a stack (see 
Chapter 3). 

The following examples illustrate FORTRAN ADDRESSing applications. To adjust a caller's 
FRTN (without using further linkage routines, which will be discussed), the following method 
might be employed: 

FCALL 

NAME 

Parameter 

Next Sequential Instruction 



Stack Length Word 
NAME: LDA0,@FRTN,2 

ISZ FRTN, 2 



Parameter ^ ACO 

Return can now be made 
to the NSI 



FRET 



One of the duties of FSAV is to preserve a caller's registers upon issuance of a further call. 
In order to do this, a register must be freed. The following example shows how FSAV's use 
of QSP accomplishes this end: 



TEMP: 
FSAV: 



.ZREL 




.BLK 1 




.NREL 




STA 2, TEMP 


Without 


LDA2,FSP 


Using 


STA 0, FACO, 2 


QSP 


STA1.FAC1.2 




STA 3, FRTN, 2 




LDA 0, TMP 




STA0,FAC2,2 - 





FSAV: 



STA2,@QSP 




LDA 2, FSP 


Using 


STA 0, FACO, 2 


} QSP 


STA 1.FAC1.2 




STA 3, FRTN, 2 
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FORTRAN ADDRESSING (Continued) 

QSP may be used for temporary storage by a routine provided it is not being so used when a 
call out is made to a subroutine by means of FLINK: 

JSR NAME 

Next Sequential Instruction 

NAME: STA3,@QSP 



LDA 3, FSP 
JMP §FAC2,3 

Despite the fact that FLINK restores the original values of a caller's registers, it is possible 
to pass results to a caller in one of the free registers. The following example illustrates one 
possible method: 

FCALL 

NAME 



SLW 



NAME: 



LDA 3, FSP 

LDA2.FOSP, 3 ; The result is returned in 

STA1.FAC0.2 ; the caller's ACO 

FRET 

Similarly, conditional return can be provided by altering the caller's FRTN: 

FCALL 

NAME 

Return if condition 1 satisfied 

Return if condition 2 satisfied 



NAME: 



SLW 



LDA2,FOSP,3 

SUB 0, l.SZR ; Condition 2 satisfied? 

ISZ FRTN, 2 ; Yes 

FRET 
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Library Conversion of FORTRAN ADDRESSes to Absolute Addresses 

Several library routines are available for transforming FORTRAN ADDRESSes into absolute 
addresses when they reference stack displacements: FRG0/FRG1, MAD/MADO, FRGLD, 
CPYARG/CPYLS, and FARG. In addition to performing an effective address calculation, when 
the FORTRAN ADDRESS references a stack displacement, FRGLD loads the contents of this 
address in ACO; if the FORTRAN ADDRESS exceeds 377 8 , it is treated as an absolute address 
and FRGLD loads the contents of this address in ACO. 

CPYARG/CPYLS and FARG transfer effective addresses to the caller's stack. FRGO computes 
the effective address of a stack frame displacement with respect to the current FSP, while 
FRG1 performs this calculation with respect to the next most current FSP. 

FRGO Operation 



User Routine A 

JSRB 

FORTRAN ADDRESS of argument 



13: 

Address of FORTRAN ADDRESS- 
JSR @. FRGO 

Return to A 



-AC2 



effective address of argument— *- ACO 



Routine A's 
Stack Frame 



argument (if FORTRAN ADDRESS of 
argument was between 0-377 ) 



Subroutine B must not specify a stack frame. 

FRGLD computes the effective address of an argument stored at a FORTRAN ADDRESS, and 
then loads the contents of that address in ACO. If the address is a stack frame displacement, 
it must be a displacement on the next-most-recently created frame. FRGLD calls FRG1 to 
resolve the effective address of the argument. 

The MAD /MADO module also computes effective addresses from FORTRAN ADDRESSes. 
If the address exceeds 377g, then it is resolved as either an absolute . NREL address or as an 
indirect address needing further resolution as shown on page 2- 10. If the address is from 
to 377 g inclusive, the address is a stack frame displacement. The question "Which stack 
frame?" is answered by the entry which was selected to this module. If MAD entry, then the 
caller's stack frame is meant and the current FSP is used as a base for the address calculation. 
The resulting effective address is returned in AC2. The MAD/MADO module itself has no 
stack frame and does not restore the accumulators or carry to their entry values when return 
is made to the caller. 
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P assing Arguments from the Caller 

There are two subroutines in the library available for resolving FORTRAN ADDRESSes passed 
by a caller (either referencing stack displacements or absolute addresses of parameters) and 
storing them on the stack frame of called subroutine B: FARG and CPYARG/CPYLS. FARG is 
used to pass argument addresses to the stack frame of the called subroutine without restoring 
caller B's accumulators and state of carry upon return to B. 

CPYARG/CPYLS performs the same function, but restoring the original contents of accumulators 
and state of carry upon return to caller B. The only difference between CPYARG and CPYLS is 
in the calling sequence which each accepts. 



Routine A 

Call Subroutine B 

n 

FADDR1 

FADDR2 

etc. 

Next Sequential Instruction 



Subroutine B 
Call CPYLS 



CPYLS resolves effective addresses 
of Subroutine A's calling parameters, 
places these on Subroutine B's stack, 
updates Subroutine A's FRTN to NSI 



Stack A 



FRTN 



Stack B 



effective address FADDR1 
effective address FADDR2 
etc. 



Note that the parameters to be passed will be on Subroutine A's stack only if the FORTRAN 
ADDRESSes (FADDRn) in the call to Subroutine B were between and 377 g . 
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Returning Results to the Caller 
The order of the calling sequence generated by the FORTRAN statement 



is as follows: 



CALLSUB2 (P P ) 



JSR W. FCAL 

SUB2 

n 

FORTRAN ADDRESS of Parameter 1 



FORTRAN ADDRESS of Parameter N 
Next Sequential Instruction 

The called subroutine, SUB2, must fetch the FORTRAN ADDRESSes of each of the parameters, 
perform its function on the parameters, and return the result it has obtained back to the caller 
at the FORTRAN ADDRESS of the result (which may be one of the parameters). It can do this 
by first calling CPYARG (or CPYLS), using the effective addresses it has received, and then 
returning the result to the specified address. Remember that the FORTRAN ADDRESSes of the 
caller's parameters can be either displacements on a stack frame or actual pointers to the 
parameters. One way of returning the result is to load it into an accumulator and then store 
it: 

STA @0, TMP, 3 

where AC3 contains the current (i.e. , SUB2's) FSP. Assuming Parameter 1 is the result 
address, TMP would contain the effective address of SUBl's Result, since the list of addresses 
of SUBl's parameters was transferred in order onto SUB2's stack. The effective address of 
the Result was transferred to SUB2's TMP+1, and so on by CPYARG. Often in assembly 
language programs it will be helpful to assign mnemonics to the displacements of the temporary 
storage locations following TMP, especially in cases where many of these storage locations are 
being used. 



STACK ALLOCATION AT RUN TIME 

Single Task Environment 

Certain initialization procedures, performed by single task . I at the beginning of run time, 
are necessary before a main FORTRAN program may be run. 

Single task . I is an entry in the library routine I. . I allocates a stack for itself consisting 
of 60g locations plus header, where the Channel Assignment Table is placed. . I is called by 
the operating system at the beginning of run time. At the end of the successful running of the 
FORTRAN program, return will be made to . I, which transfers control unconditionally to the 
STOP routine. STOP outputs the message "STOP 999" to the system output device and returns 
control to the operating system. 

Under SOS a system call is issued at the start, .SYSI, which initializes system I/O (this 
call is a no-op to RDOS). Then 40g locations are allocated for the SP stack immediately 
following the last loaded run time subroutine; a pointer to the beginning of the SP stack is also 
created. 
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Single Task Environment (Continued) 

Immediately following the last location in the SP stack, the number stack is defined and is 
allocated if floating point arithmetic is used in .MAIN or any of its subprograms. This stack 
will be 630 8 words long, or 30g plus twice whatever value a user has specified in a . FLSZ 
statement. The default value sets aside enough storage for 68 single precision floating point 
numbers, or 34 double precision complex numbers. 

After allocating the number stack (or after allocating the SP stack if no number stack is called 
for), a pointer to the beginning of the run time stack is defined, and . I's stack is allocated here. 
.MAIN'S stack frame will be created as soon as transfer is made to .MAIN. 

Before this happens, a check is made to see whether or not there is enough room for blank 
common allocation, and blank common is allocated at the high end of memory if there is enough 
room for both it and the stacks which have been allocated. If not, a memory overflow message 
will be output and the system will wait for operator intervention. Assuming there is enough 
room, . NMAX is updated to acknowledge the stack allocations by means of a. system call, .MEMI. 
The Channel Assignment Table is initialized and deposited in . I's temporary stack area, and 
program control is given to .MAIN. 

The fact that no memory overflow is detected by .1 in no way implies that there will be enough 
core space for all stack allocations which will be necessary at the peak requests of run time. 
Instead, a stack overflow check is made by the.F LINK module each time a stack allocation 
request is issued, and a stack overflow error message is issued if insufficient space is detected. 
A simplified version of . I. which illustrates the elements of .1 as they might be used in an 
assembly language program, is given in Appendix B. AFSE, referenced in both versions of . I, 
is a pointer used to determine whether stack overflow has occurred. 



Multitask Environment 

Multitask . I is an entry in the multitasking library routine MTI. The Channel Assignment Table , 
60 8 locations in length, is written over a section of . I after that part of the initialization code 
has been executed. 

A system call, . RESET, is issued to initialize system I/O. USTCS of the User Status Table 
(UST) is examined to determine the size of blank common. Blank common is then allocated, if 
possible, and a pointer to the start of blank common is created. If there is not enough memory 
available for blank common allocation, error message MEMOVFL is output and a return to the 
next higher program level (usually CLI under RDOS) is made by means of . SYSTM, . RTN. A 
temporary SP stack is then created (and will later be overwritten). The number of tasks and 
FORTRAN channels which will be required is determined by examining USTCH of the UST. DVD 
is then called, and the remaining free memory is partitioned into equal segments, one for each 
task's later runtime use. Each run time segment has a link to the following segment built 
into its first word, and a flag bit is allocated to indicate whether the segment has yet been 
assigned to a specific task. 

ITCB is then called, setting up stacks and stack pointers in the first run time segment area for 
the first FORTRAN task. The Channel Assignment Table is then built over the beginning of . I 
code, which is of no further use in a multitasking environment after its initial execution. Control 
is then given to the FORTRAN Task Scheduler. 
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CHAPTER THREE 
ARRAY STRUCTURE AND HANDLING 



An array is an ordered set of data of one or more dimensions up to 128 dimensions are 
allowed. Array structure and handling present an exception to the discussion of the library's 
stack allocation presented earlier. 

An array may be defined to be any size in up to 128 dimensions, provided it does not exceed 
the limits of available memory. Array elements are referenced by integer subscripts, one for 
each dimension. Element values are assigned so that the first subscript varies most rapidly, 
then the second subscript, etc. ; the element values themselves are numbers in packed format. 

An array is allocated by a call to FALOC. The required number of locations is appended to the 

FALOC also adjusts the caller's FLGT to ensure that any further creation of stacks will follow 
the end of the array. 

Array elements are not referenced by the FORTRAN ADDRESSing scheme of relative stack 
displacements. Instead, routines FSBR, FSUB are used to calculate the absolute address of an 
array element, with the result an absolute NREL address instead of a relative stack displacement. 

The array handling routines require two tables for array allocation and element addressing. 
An additional table is required when an array is to be redimensioned and passed as a dummy 
argument. 

The first table is the Subscript Bound Specifier (SBS). It describes each subscript's boundaries 
(both upper and lower index values are included, since array indices may begin at values other 
than 1) and specifies both the type and size of the array elements (i.e. , integers, 1 word; 
SPFL's, 2 words; DPFL's and SPFL complex, 4 words; and DPFL complex, 10 s words). The 
element type coding is 1, integer; 2, SPFL; 3, DPFL; 4, SPFL complex; and 5, DPFL complex. 

If N is the number of dimensions of an array of the general form Array A (lower bound ^ : 

upper bound} , . . . , lower bound n : upper bound n ), then the SBS table will have the following form: 



Word 1 
Word 2 
Word 3 
Word 4 
Word 5 
Word 6 

Word 2N+1 
Word 2N+2 



Integer value = 2N-1 


element size (words) 


element type 


1st subscript lower boundary (lb ) 


ub 1 - lb 1 + 1 


2nd subscript lower boundary (lb ) 


(ub^lbj+ir^-l^+l) 




nth subscript lower boundary 


(ub -lb +1)*, ,, *(ub -lb +1) 
11 n n 



Subscript Bound Specifier (SBS) Table 



total number of elements 
in array 
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ARRAY STRUCTURE AND HANDLING (Continued) 

The Three Word Array Specifier (TWS) is a smaller table which is set up within the caller's Run 
Time Stack. It contains a pointer to the SBS, a pointer to the beginning of the array, and the 
total number of words (not elements) in the array: 



Word 1 
Word 2 



FORTRAN ADDRESS of SBS 


FORTRAN ADDRESS of first 


array 


element 


Array size in words 



Three Word Array Specifier (TWS) 



Space for the TWS is reserved on the caller' s stack before calling FALOC, which then fills 
in the three word table with the appropriate information. The SBS is built in NREL memory by 
the compiler for an array defined in the main program (or in a subroutine if the array is not 
a passed argument). 

The following diagrams illustrate memory maps after a FORTRAN statement DIMENSION A 
(x,y,z) generates a call to FALOC: 

Map after FALOC is called and its stack 
is allocated, but before FALOC is executed: 



variable portion 
of . MAIN stack 



t 



TMP 



Blank 



Blank 



Blank 



FALOC Header 



FALOC TMP 
FALOC TMP+1 



; 



TWS 
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Map After FALOC Execution 



variable portion 
of . MAIN stack 



TMP 



, NREL address of SBS 



Array Address Pointer 



Integer size of Array 



Memory Area 
Allocated 
for Array 



> TWS 
J. 



If an array is to be redimensioned and passed to a subroutine as a dummy argument, a new 
SBS is created in the run time stack, reflecting the new index values. When the array is passed 
to the subroutine as an argument, the subroutine accesses the array via the new SBS. Array 
redimensioning and passing are done by FREDI. 

As with FALOC, FREDI requires a 3 word area on the caller's stack into which it builds the 
new TWS. FREDI also requires the address of the array being passed, and the address of 
another table called the Special Subscript Bound Specifier (SSBS) so that re -dimensioning can 
be accomplished. SSBS is similar in structure to SBS; in place of literal values and cumulative 
partial products for each index, the addresses of the upper and lower bounds of each index are 
given. The SSBS is built by the compiler in NREL memory. 



Integer value = 2N+ 1 



element size (words) | element type 
address of first subscript lower bound 



address of nth subscript upper bou nd 



Special Subscript Bound Specifier (SSBS) 
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The new SBS, built by FREDI for the caller, is appended to FREDI's own stack. The TWS 
is built into the area of the caller's stack reserved for that purpose. The stack area used by 
FREDI in its computations becomes a waste area, unused by the caller upon completion of 
FREDI's operation. FREDI adjusts the caller's FLGT, making the new SBS part of the 
caller's stack and protecting it from being overwritten by future stacks. The array itself 
is not appended to the caller's stack, since it is already defined by the calling program. 

The following diagrams illustrate memory maps after a call to FREDI: 

Map after FREDI is called and its stack 
is allocated, but before FREDI is executed 



CALLER'S STACK 



Blank 



Blank 



Blank 



FREDI STACK 



TWS 



After FREDI execution, FREDI updates the caller's FLGT to include the stack area and SBS 
appended from FREDI. 



CALLER'S STACK 



Pointer to New SBS 



Pointer to Array Start 



Array size in words 



FREDI's used Stack 
area 
(Unrecoverable 



TWS 



new SBS 
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CHAPTER FOUR 
PROGRAM SEGMENTATION 



TASKS 

A task is a logically complete execution path through a user program that demands use of 
system resources (I/O devices, system or user overlays, CPU control, etc. ). Its execution 
may be independent of and occur asynchronously with other tasks. A FORTRAN IV program 
in a multitasking environment may consist of any number of tasks. 

tasks compete simultaneously tor the use of system resources in a multitasking environment, 
although only one task may receive CPU control and the desired resources at a given moment. 
A task scheduler allocates control to each task, based on task priority and readiness to use 
system resources. 

FORTRAN IV uses the multitask programming facilities available under RDOS, allowing 
execution of various routines to be performed asynchronously as distinct tasks. 

Task Priorities 



Task priorities are assigned when tasks are activated and may range from (highest priority) 
to 255io (lowest priority). Several tasks may exist at the same priority level; the time of a 
task's creation or priority modification determines its initial rank within a given priority level-- 
the first task assigned to a given level has the highest priority within it. 

The relative priority of ready tasks within a common priority level is determined by the 
relative positions of their respective task control blocks (TCB's) on the active chain maintained 
by the task scheduler. Each time a task receives control of the processor, its TCB is moved 
to the end of the active chain. This gives ready tasks within a common priority level approx- 
imately equal access to the processor. 

There is no limit placed on the number of tasks which may be created within a program. 
However, each task requested causes a decrease in the size of the run time stacks allocated 
for each task; thus only the minimum number of tasks necessary for the running of a program 
should be requested. 

Task States 

At any given point during the execution of a multitask program, a task may be in any one of 
four states: dormant, suspended, ready or executing. A dormant task has not yet been activated 
or has been terminated. A ready task can proceed as soon as it is given control of the processor. 
A suspended task is not ready to receive control of the processor yet but has not been terminated. 
An executing task is in control of the processor. 

Executing, ready and suspended tasks are said to be active and are linked together in a queue 
called the active chain; tasks which have been deleted are removed from the active chain and 
placed in the inactive chain. 

When a task is activated (through an FTASK or IT ASK call) it becomes ready and competes with 
other ready tasks, on the basis of its assigned priorities, for control of the processor. When a 
task receives control of the processor from the scheduler, it goes into the executing state and 
retains control until it has been completed or some event forces it to relinquish control. A 
task is suspended when it cannot proceed until the occurrence of some event, such as an 
appropriate system call or a hardware (I/O) interrupt. The task remains suspended until the 
required event occurs. 
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Task Control Blocks 



A task control block (TCB) consists of eleven locations used to store the status of an active 
task. The scheduler maintains a separate TCB for each active task; the TCB's arc linked 
together to form an active chain. TCB's are created at load time, as specified in the CHANT ASK 
statement at the beginning of a multitask program. 



Task Control Block 



Word 1 
Word 2 
Word 3 
Word 4 



Word 


5 


Word 


6 


Word 


7 


Word 10 


Word 


11 


Word 


12 


Word 


13 



Program Counter and Carry 



Task's ACO 



Task's AC1 



Task's AC2 



Task's AC3 



Status Bits and Priority 



System Call Word 



Link to next TCB in Chain 



FSP 



Pointer to Run Time Stack 
Segment for this Task 



Temporary location for use 
by RDOS 



TCB Chain 
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Task Control Blocks (Continued) 

During execution, those TCB's that are not being used are linked together to form the free chain. 

When a task is activated, a free TCB is removed from the free chain and linked to the active 
chain; status information for the newly activated task is then placed in this TCB. 

Task Scheduler 

During the execution of a multitask program, the task scheduler receives control of the processor 
after each system call. The scheduler men scans die active chain, searching for the TCB of the 
ready task with the highest priority; this task then receives control of the processor. In the case 
where several tasks are at the same priority level, the scheduler moves the TCB of die first ready 
task encountered along the active chain to Luc end of the chain, and gives contro± Oi. uiC processor 
to the corresponding task. If there are no ready tasks in the active chain, the scheduler will wait 
until some event causes a task to become ready. 

Multitasking Commands and Subroutines 

The main FORTRAN 1 program and one or more task subprograms are written as program units of 
a multitasking program. The main program is at priority level initially and thus receives control 
at the initiation of execution. If the main FORTRAN unit is killed, it cannot be reactivated unless 
the program is restarted. The main FORTRAN program cannot be activated by a call to FTASK or 
ITASK. 

The next statement after COMPILER DOUBLE PRECISION, COMPILER NOSTACK, and OVERLAY 
statements (if any are used) in the main FORTRAN program of a multitask program is a 
CHANTASK statement: 

CHANTASK number of channels, number of tasks 

where: number of channels is an integer constant in the range of 1 to 64 1() representing the 
number of channels that can be open at any one time. 

number of tasks is an integer decimal constant representing the maximum number of 
tasks that can be simultaneously active at a time during program execution. 

If the CHANTASK statement is omitted, the default values are 8 channels and only one active task 
during program execution. 

The specification of number of tasks could also be made in an assembly language program loaded 
just before the run time library. The program is named FRTSK and has the following source code: 

.TITL FRTSK 

. ENT FRTSK 

FRTSK = (n) where n is the number of tasks 

.END 

FRTSK, if it appears in the RLDR line, will also override a task specification made in the CHANTASK 
statement. 

The CHANTASK statement (or the specification of number of tasks in FRTSK) may be overridden at load 
time by using the /C and /K local switches of the RLDR command. The /C switch specifies that the 
octal value immediately preceding the switch is the number of required channels. The /K switch 
specifies that the octal value immediately preceding is die number of required tasks. 
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Multitasking Commands and Subroutines (Continued) 

The number of channels specified in CHANTASK (or in RLDR) determines the number of FORTRAN 
logical channels available for concurrent use. A minimum of 16jg FORTRAN logical channels 
will be allocated even though fewer channels may be specified; in this case the number of channels 
available for concurrent use will be limited to the number specified. 

The number of tasks in the CHANTASK specification determines the number of TCB's that will 
be available at run time. If an attempt is made to activate a task when all available TCB's are in 
use, an error condition results. 

At load time, the total run time stack area available is divided equally into as many parts as 
there are tasks specified by CHANTASK. Each task has only the space of one of these equal 
segments available to it at run time. If a task needs more space than is available to it at run time, 
a fatal error results. Thus the user should not specify the number of tasks to be any greater than 
he actually needs. 

Each task subprogram must begin with a TASK statement and end with an END statement. The TASK 

TASK taskname 

where taskname is the name assigned to the task program unit. This name must be unique in its 
first five characters with respect to all function and subroutine names as well as all other task 
names and overlay names. 

A task name must be declared as EXTERNAL in each external program unit that references it. 
Each task subprogram may be executed an arbitrary number of times during a single execution of 
the multitasking program. 

Activating a Task 

All tasks except the main FORTRAN program are activated by executing a call to either the FTASK, 
FQTASK, ITASK or ASSOC routine. FTASK activates a task by its taskname; ITASK associates 
an identifier with the task by which it can later be referenced. FQTASK causes periodic execution 
of a task contained in a user overlay. 

Intertask Communication 

Active tasks may communicate with each other through shared COMMON (either labeled or blank). 
Information generated by one executing task can be retained in data or subprogram units until 
one or more other tasks are executing and can access this information. However, no synchroni- 
zation of creation and use of information is implicit in this scheme. Unless precautions are taken 

it+v}rrii-\*-c m-iir K« mqHo tn ncp infnrmaHnn t-Vtaf- ViaQ nnt ir^f" K/^^n o-£>np»-rQf^H 
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Synchronized transmission of one word messages between active tasks can be accomplished by use 
of the FXMT library subroutine. Entry points for this routine are XMT, XMTW, and REC. 
Through calls to these entry points a task may transmit a message to another task and continue 
executing (XMT), transmit a message to another task and wait for its receipt (XMTW), or receive 
a message from another task (REC). In the case of calls to XMTW or REC, the calling task is 
suspended immediately following the call until the transmission is complete. 

Suspending a Task 

There are seven conditions which can cause the suspension of a task: 



4-4 



Licensed Material - Property of Data General Corporation 
Suspending a Task (Continued) 

1. A CALL SUSP is executed. 

2. A CALL HOLD is executed. 

3. The task must await some I/O event. 

4. A CALL FDELY is executed. 

5. A CALL ASUSP is executed to suspend all tasks of die same priority as the executing task. 

6. A CALL REC is executed to receive a message not yet sent. 

7. A CALL XMTW is executed to transmit a message for which a corresponding CALL REC has 
not yet been executed. 

A task may be doubly suspended, as by a call to ASUSP and I/O completion. In such a case two 
separate suspend bits are set and both must be reset before the task may become ready. 

Readying a Task 

A task is put into the ready state when it is activated; while active, it remains in either the ready 
state, the executing state or the suspended state. There are five conditions which may cause a 
task to become ready: 

1. A task suspended by execution of a call to SUSP, HOLD, or ASUSP may be readied by 
execution of a call to ARDY or RELSE. 

2. A task suspended for performance of I/O is readied automatically upon completion of I/O. 

3 - A task suspended by execution of a call to FDELY is readied by execution at the the of time 
period specified. 

4. A task suspended by execution of a call to REC is readied bv execution of a corresponding 
call to XMT or to XMTW. 

5. A task suspended by execution of a call to XMTW is readied by a corresponding call to 
REC. 

As noted previously, a task that has been doubly suspended must be doubly readied. 
Changing Task Priority 

When a task is activated it is assigned a priority number. Execution of a call to PRI causes the 
priority number of the executing task to be changed. A task may change its priority number any 
number of times while it is active. 

Execution of a call to CHNGE causes the priority number of the task having the identification 
number given in the call to be changed to the specified priority number. 

Killing a Task 

A task may be killed by a call to KILL (kills the executing task), AKILL (immediately terminates 
all ready or executing tasks of the priority number specified; suspended tasks with the specified 
priority number are killed immediately after they become ready), or ABORT (terminates the task 
with the specified i.d. number). 

Obtaining Task Status 

The user can obtain the current status of a given task (ready, suspended, inactive) by a call to 
the STTSK routine. There are nine possible status codes: 
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Obtaining Task Status (Continued) 

Ready 

1 Suspended by a . SYSTM call. 

2 Suspended by an ASUSP call. 

3 Wait due to XMTW or REC. 

4 Wait for an overlay node. 

5 Suspended by ASUSP, SUSP or HOLD and by a . SYSTM call. 

6 Suspended by XMT/REC and by ASUSP, SUSP or HOLD. 

7 Wait for overlay node and suspended by ASUSP, SUSP, or HOLD. 

8 No task exists for diis i.d. 

OV ERLAYS 

Separately compilable FORTRAN program units (subroutine, function, block data, and task sub- 
programs) may be divided into root programs and overlay programs. When a given program is 
executing, its root will be core resident; overlay programs will be disk resident and will be 
brought into core as they are needed for continued execution. 

Several overlay programs may be grouped into overlays, and a number of overlays may time share 
an area of core (overlay -area). Segments of programs that need not be simultaneously core resident 
can be made into disk resident overlays, and, when required, can be loaded into a common overlay 
area in core. Obviously, only one of the overlays assigned to an overlay area can be resident in it 
at a time. 

At run time, all overlays are maintained as core images in a single file on disk; these disk resident 
core images are never altered during program execution. Each time an overlay is loaded into 
core, it is in its original form, regardless of whether or not it contains a non-reentrant routine. 
No part of an overwritten overlay is saved. 

After compilation, each program unit contained in an overlay or root program (including a single 
main program unit) is contained in a separate file in relocatable binary form. The RDOS extended 
relocatable loader accepts these relocatable binary files and builds the root and overlays in core- 
image executable form. Two files are produced: a save file containing the root, and an overlay 
file containing all the overlays. The overlays may be divided into overlay areas, each assigned to 
a different area of core. Each overlay area starts at a different point, called a node point; there 
may be up to 128 node points. When the save file is in core for execution, the overlay file remains 
on disk. Overlays may be loaded during execution as they are needed. 

A single overlay area is a multiple of 400g locations and must be large enough to accommodate the 
largest overlay assigned to it. Overlays may exist in either single or multiple task environments. 
In either case the overlay must be assigned a name and the overlay file must be opened before the 
overlay is loaded into core; the overlay file must also be closed when it is no longer needed. 

In a multitasking environment, overlays and their corresponding overlay area may be shared by 
several tasks. It is therefore necessary that a determination of whether or not a given overlay area 
is already in use be made before an overlay is loaded into it. 

Different loading routines are called in single and multitasking environments; in a multitasking 
environment an overlay must be released after use. A task waiting for an overlay area that is in 
use must be suspended until the overlay area is released. 

Overlay Statements and Routines 

In both single and multiple task environments each overlay must be assigned a name in an OVERLAY 
statement. OVERLAY is a non -executable specification statement: 
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Overlay Statements and Routines (Continued) 

OVERLAY overlayname 

where overlayname is the name of the overlay. This name must be unique in its first five chara- 
cters with respect to all function and subroutine names as well as all other overlay names and 
task names. 

An overlav name must he declared as EXTERNAL in an" external ^ro^ram unit that references it. 

An OVERLAY specification statement must appear as the first statement in one of the program 
units belonging to the overlay. If more than one subprogram of an overlay contains an OVERLAY 
statement, each overlayname specified in these statements may be used interchangeably to 

rpfaron^D Hio nvorl air 
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Opening and Closing an Overlay File 

In both single and multiple task environments, the overlay file associated with a program using 
overlays must be opened by execution of a call to the OVOPN routine before any overlays can be 
loaded . 

In both single and multiple task environments, each overlay file is closed by a call to CLOSE. An 
overlay used by multiple programs in a multitasking environment must be closed by any program 
that opens it before another program can use the overlay. 

Loading an Overlay- -Single Task Environment 

An overlay is loaded in a single task environment by execution of a call to the OVLOD routine. 
The resulting load may be either conditional or unconditional. In the case of an unconditional load, 
the user overlay is loaded regardless of whether it is already in core. This allows for initiali- 
zation of non -reentrant code. 

A request for a conditional overlay load causes the user overlay to be loaded only it it is not 
already present in core. This may save time in some cases, but conditional loading should be 
specified only when overlays are reentrant. 

Each overlay has a corresponding overlay use count (OUC) that indicates whether or not the 
overlay is core resident. Specification of a conditional load results in a check of the OUC; an OUC 
of one indicates that the overlay is core -resident, zero indicates that the overlay is not resident in 
core. Following are the conditions determining the loading of an overlay: 

1. If the load request is conditional (flag£0) and the area is free (OUC=0), the OUC is 
incremented, the overlay is loaded, and the error return is set to 1 to indicate the 
overlay has been loaded. 

2. If the load request is conditional and the overlay area already contains the requested 
overlay (OUC=l), the overlay remains in the area, the OUC is decremented, and the 
error return is set to 1 to indicate that the overlay has been loaded. 

3. If the load request is unconditional, the OUC is set to 1, the overlay is loaded, and the 
error return is set to 1. 

4. If for any reason the overlay cannot be loaded, an appropriate error return is set. 
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Loading an Overlay --Multitask Environment 

An overlay is loaded in a multiple task environment by execution of a call to the FOVLD routine. 

The loading of an overlay depends upon the state of the conditional flag and die OUC. However, 
since overlays and overlay areas may be shared by two or more tasks, the conditions for loading 
are more complex than in a single task environment. 

When a task causes an overlay to be loaded, the task is suspended until the loading process is 
completed. When a task tries to load an overlay into an overlay area and cannot because the over- 
lay area is already in use, the task is suspended until the overlay area is freed and the desired 
overlay is successfully loaded. If more than one task is suspended waiting for an overlay area to 
be freed, the task with the highest priority waiting for the overlay area has its desired overlay 
loaded when the overlay area is freed, and this task is readied when loading is completed. 

The overlay use count is incremented each time a task causes an overlay to be loaded and is 
decremented each time a task causes the overlay to be released. Since more than one task can 
use an overlay, the OUC may be greater than 1. An overlay area is free only when the OUC 
2-oes to 0. Following are the conditions for loading an overlay in a multitask environment: 

1. If the load request is conditional (flag/0) and if the area is free (OUC=0), then the OUC 
is incremented, the overlay is loaded, and the error return is set to 1 to indicate the 
overlay has been loaded. 

2. If the load request is conditional and if the area is not free but already contains the 
requested overlay, the overlay remains in the area, the OUC is decremented, and the 
error return is set to 1 to indicate that the overlay has been loaded. 

3. If the load request is conditional and the area is not free and does not contain the requested 
overlay, the caller is suspended until the area is freed. 

4. If the load request is unconditional (flag=0) and if the area is free (OUC), the OUC is 
incremented and the overlay is loaded regardless of whether it is core resident or not. 

5. If the load request is unconditional and if the OUC has not gone to zero freeing the area, 
the calling task is suspended until the area becomes free. 

6. If for any reason the overlay cannot be successfully loaded, the error specification in the 
call is set to the appropriate error code. 

When a task causes an overlay to be loaded, the task is suspended during the loading process as it 
would be for any other I/O operation. For those cases in which no loading occurs, and the task 
does not have to wait for an overlay area to become available, the task is not suspended. 

Releasing an Overla y Area 

All overlay loads (FOVLD) in the multitask environment must eventually be paired with overlay 
releases or overlay areas will be reserved indefinitely. An overlay area can be released from 
outside the overlay by execution of a call to FOVRL; this causes the OUC for the specified overlay 
area to be decremented. (The overlay area is freed only when the OUC goes to zero. ) If an 
overlay other than the one resident in the specified overlay area is named in the subroutine call, 
an error condition results and the overlay area is not released. 
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Re leasing an Overlay Area (Continued) 

Overlays may be released from inside the overlay area, either from the routine in which the 
overlay was named or from some other routine within the overlay. 

A call to OVKIL can be made from the routine in which the overlay was named in an OVERLAY 
statement and causes the overlay to be released and the task containing the overlay to be killed. 

A call to OVKIX is made from a routine outside that in which the overlay was named. The OVKTX 
routine causes the overlay to be released and the task containing the overlay to be killed. 

A call to OVEXT can be made from the routine in which the overlay is named. It causes the over- 
lay to be released and provides a return location. 

A call to OVEXX is made from outside die routine in which the overlay is named. OVEXX causes 
the overlay to be released and provides a return location. 

Periodic Execution of Overlay or Core Resident Tas k s 

Real time overlay tasks are periodic executions of a task contained in a user overlay. Execution 
of a call to FQTASK causes the overlay containing the specified task to be loaded so that the task 
can be executed. Provision is made in the call in case the task is already core resident. 

Before the call to FQTASK is executed, the file containing the specified overlay must have been 
opened (OVOPN). When the call is executed, the specified overlay is loaded at the specified time 
and the required task is first executed. The task is executed periodically after each specified 
increment until the task has been executed the required number of times. If the task is core 
resident, a dummy name is specified instead of the overlay name. 

If the necessary overlay area for the specified overlay is not available, or if there is no TCB 
available for the required task, task execution is postponed until the necessary resource is 
available. An error code of 1 represents successful completion of the FQTASK call. 

PROGRAM SWAPPING AND CHAINING 

During run time, programs may be chained or swapped. In chaining, the currently executing 
program issues a call to FCHAN that causes the program to be overwritten in core by another 
program loaded from disk. The core image of the calling program is not saved. In swapping, the 
currently executing program issues a call to FSWAP that causes its core image to be saved on disk 
and a new program to be loaded from disk for execution. The saved program can later be restored 
by a call to FBACK. 

When a program calls another in a swap, the calling program is said to execute at a higher level 
than the called program. The RDOS CLI executes at level and user programs execute at levels 
1-4. When a program issues a call to FSWAP, the execution level is incremented, and when a 
program issues a call to FBACK the level is decremented. If an attempt is made to nest swaps to 
a level deeper than 5, an RDOS error results. 

When a program issues a call to FCHAN, the called program replaces the calling program at the 
same execution level. Thus, any number of chaining calls may be made. 

Program chaining can be used to subdivide a program that would exceed the limits of core into 
sequentially executable units. Program swapping allows core images of programs to be saved and 
called for execution more than once during program execution. 
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P ROGRAM SWAPPING AND CHAINING (Continued ) 

Each save file that is swapped or chained must contain a single complete FORTRAN IV program 
consisting of a main program unit and all subprograms whether directly or indirectly linked to it. 
Each swapped or chained program can be independent of all others except for linkage through 
swapping or chaining statements and shared data. Each swapped or chained p*f>gt&m can have its 
own independent task or overlay structure. 

Swapped or chained programs can communicate through commonly accessed files and unlabeled 
COMMON areas in core. The user can insure that data necessary for swapped or chained programs 
in unlabeled COMMON is not overwritten by an incoming core image by declaring the same size 
area. Additionally, all participating FORTRAN programs must be either single tasking or multi- 
tasking, not a combination of the two. 
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CHAPl'ER FIVE 
USING RDOS FEATURES 



FILE MAINTENANCE AND I/O 

FORTRAN IV Run Time routines provide an interface to RDOS file maintenance features. The 
following functions may be performed by use of the indicated calls: 

L Create an RDOS disk file, (OFTT.W) 

2. Delete an RDOS disk file. (DFILW) 

3. Open an RDOS file. (OPEN) 

4. Open an RDOS file for appending. (APPEND.) 

5. Rename an RDOS disk file. (RENAME) 

6. Close an RDOS file. (CLOSE) 

7. Close all open files. (RESET) 

8. Examine the attributes of an RDOS file (GTATR) 

9. Set the attributes of an RDOS file. (FSTAT) 

10. Read a series of blocks. (RDBLK) 

11. Read a series of records. (READR) 

12. Write a series of blocks. (WRBLK) 

13. Write a series of records. (WRITR) 

Calling sequences, parameter definitions, error codes and other pertinent information are given 
in the routine descriptions. 



DIRECTORY /DEVICE MAINTENANCE 

FORTRAN IV run time routines also interface with RDOS directory /device maintenance features. 
The following functions may be performed with the indicated calls: 

1. Change the current directory. (DIR) 

2. Initialize a directory. (INIT) 

3. Release a directory. (RLSE) 

Consult the routine descriptions. 



INTERRUPTS 

User Interrupts 

Users wishing to incorporate non-SYSGENed devices into real time FORTRAN programs must 
provide for the interrupt servicing to be done in assembly language and for the creation of a three 
word device control table (DCT) as detailed in the RDOS USER'S MANUAL (093-000075). 

Interrupts from special (non-SYSGENed) devices do not generally change the status of tasks in a 
FORTRAN multitask environment. Instead, such interrupts freeze the environment until servicing 
of the interrupt is completed and the multitask environment is unfrozen. Tasks will resume their 
former states when the environment becomes unfrozen unless the user transmits a message to 
one of them by means of the transmit interrupt message command, IXMT. If the task for which 
the message is intended has issued a REC call for the message, the task state is changed from 
suspended to ready even though the task activity is in suspension. 
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User Interrupts (Continued) 

Since control does not go through the FORTRAN Task Scheduler when the environment is 
unfrozen, IXMT is not a command which can be issued via FORTRAN source code; rather, IXMT 
is a Task Call identical to . IXMT described in the RDOS USER'S MANUAL. This is the only 
situation in which user interrupt servicing may alter the task environment. 

Identifying a User Interrupt Device 

It is still necessary, however, to identify die interrupt device to the system by means of a 
FORTRAN call to FINTD, and it is possible to remove this device by means of another FORTRAN 
call to FINRV. 

FINTD is used to identify to the system a device capable of generating interrupt requests but 
which was not SYSGENed. FINTD causes an entry for the specified device code to be placed in the 
system interrupt vector table. 

There is a special usage of a call to FINTD to provide for automatic restart of user-defined 
devices after a power failure. Users having hardware option 4006 (power monitor/automatic restart 
hardware) may make use of the call to provide power-up service for user devices in a user- 
written routine, as indicated in the routine description. 

Removing a Service Interrupt Device 

A previously added (FINTD) user interrupt device can be removed from the system interrupt 
vector table by a call to FINRV. If an attempt is made to remove a SYSGENed device or if the 
device code argument is not within legal range of user interrupt devices (g76), a fatal run time 
error occurs and execution is terminated. 

Preserving Reentrance During Interrupt Processing 

No saving of task states is required when processing interrupts, since interrupt processing 
occurs apart from task considerations. If, however, users wish to issue FORTRAN calls as 
part of their interrupt processing, it is imperative that certain stack variables be saved before 
these calls are made. Failure to preserve stack variables will disrupt management of the run 
time stack when the multitask environment becomes unfrozen. (Note that the system saves these 
variables when interrupts are generated by SYSGENed devices. ) 

When the multitask environment is frozen, page zero contains the variables for the stack segment 
of the FORTRAN task which was in control of the CPU at the time of the interrupt. Therefore if 
FORTRAN calls are to be issued from interrupt service routines, these routines must utilize the 
remaining free area in the frozen executing task's segment for run time variable storage. Although 
interrupts must be turned off while the interrupt processing logic is saving the segment variables, 
interrupts may be enabled as soon as these state variables have ueen preserver. 

The segment stack variables which must be saved by the interrupt processing routine are .SVO, 
. OVFL, FSP, SP and NSP. Additionally, a new QSP must be calculated which corresponds to the 
new FSP. 

Of the five variables which must be saved, .SVO and . OVFL may be saved in the new stack frame. 
SP may simply be incremented by one before the first FORTRAN call, and decremented by one 
after the last FORTRAN call in the interrupt servicing routine. NSP must be incremented by 6 
and decremented by 6 after the last FORTRAN call. A convenient location in which to store the 
old FSP is in the new frame's FOSP. The old FSP must be restored upon exit from the interrupt 
service routine. In order to create the new frame (and new FSP), the following adjustment must 
be made to the old FSP: 
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Preserving Reentrance During Interrupt Processing (Continued) 

C(QSP') = F(FSP) + FLGT + 2FFEL 

where C(FSP) indicates the contents of FSP and FFEL is as defined in the description of the FPZERO 
module. A new value for QSP is calculated by adding PARF dispacement FAC2 to its associated FSP: 



The old value for QSP must be restored when its associated FSP value is restored. 

The following example adjusts FSP, stores the old FSP in the new frame's FOSP, and stores . SVO 
and .OVFL in this frame's two temporaries: 



GET THE FROZEN FSP 

ADJUST NEW FSP 

ADJUST NEW FSP 

ADJUST NEW FSP 

ADJUST NEW FSP 

INSTALL THE NEW FSP 

RESERVE TWO TEMPORARIES FOR . SVO 

AND . OVFL 

SAVE THE FROZEN FSP 

GET THE FROZEN . SVO 

SAVE IT 

GET THE FROZEN . OVFL 

SAVE IT 



LDA 


3, FSP 


MOV 


3,2 


LDA 


0, FLGT, 3 


LDA 


i, MAGIC 


ADD 


0,1 


ADD 


1,3 


STA 


3, FSP 


LDA 


0, TWO 


STA 


0, FLGT, 3 


STA 


2, FOSP, 3 


LDA 


0, . SVO 


STA 


0, SAV0, 3 


LDA 


0, .OVFL 


STA 


0, OVFL, 3 



MAGIC: 


2*FFEL 


TWO: 


2 


SAV0: 


FTSTR 


OVFL= 


SAV0+1 



; FFEL=11 OCTAL, FOUND ON PARF 



FOREGROUND/BACKGROUND PROGRAMMING 

Throughout the preceding discussion of a multitasking environment the environment was under- 
stood to be confined to a single program, although tasks within that program could execute 
asynchronously. 

A dual programming environment allows two separate and distinct programs, either or both of 
which may be multitasking, to share system resources simultaneously in much the same manner 
as tasks in a multitasking environment. 

In dual programming, one program is designated as the foreground program; the other is 
designated as operating in the background. Each program is independent of the other, and each 
maintains its own task scheduler. The two programs may have the same priority, or the fore- 
ground program may operate at a higher priority than the background program. If the foreground 
program has a higher priority, the background program will receive control only when there are 
no ready tasks in the foreground. 

Foreground and background programs may communicate with each other despite their independence. 
This is accomplished through definition of a communication area within each program to be used for 
transmitting and receiving messages. 
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FOREGROUND/BACKGROUND PROGRAMMING (Continued) 

A user-written module, FHMA, specifies the highest memory address for the background to 
ensure room for the foreground. FHMA must be loaded immediately before the Run Time Library 
and has the following structure: 

.TITLE FHMA 
. ENT FHMA 
FHMA = (n) 
.END 

Mapped and Unmapped Environments 

A mapped environment includes the Memory Management and Protection Unit (MMPU); the 
foreground and background programs are separated by absolute hardware protection. Foreground 
save and overlay files are built in the same way as for a single program environment; an entire 
page zero and NREL memory is reserved for the foreground. 

In an unmapped environment (I. E. . lacking the MMPU), the foreground and background areas are 
separated by software partitions; the boundaries are set by the user at relocatable load time. 

OPERATION PROCEDURES UNDER RDOS 

The user receives the FORTRAN IV compiler as two dumped tapes. Before the compiler can be 
used, save files must be created from the tapes with the LOAD command. After the compiler has 
been loaded, the FORTRAN library tapes must be transferred to disk using the XFER command. 
The library tapes to be transferred are 

FMT. LB (FORTRAN multitask library) 

FORT 1. LB 



FORT2.LB 
FORT3. LB 
SOFTMPYD. LB 
NMPYD. LB 
HMPYD. LB 



one will be supplied. 



Once the compiler and library are properly loaded onto disk, the FORTRAN IV compiler can be 
invoked with a FORT command followed by appropriate arguments, as described in the RDOS 
USER'S MANUAL. 

Each FORTRAN main program, external subroutine, or external function is separately compiled. 
When the main program and its external subroutines and functions have been successfully compiled, 
the programs are loaded using the RLDR command. The FORTRAN libraries must be loaded with 
the programs. 

The following example illustrates a series of commands for compiling, loading and running a 
FORTRAN program: 

FORT MAIN ) 
FORT XSUB1 ) 
FORTXFUN ) 
FORT XSUB2 ) 

RLDR/D MAIN XSUB1 XFUN XSUB2 FORT1. LB FORT2. LB FORT3 . LB FORT4. LB ) 
In the above example the /D switch will also cause loading of the symbolic debugger DEBUG III. 
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Loading - Single Task Environment 



The RLDR command is used to load the relocatable binary output of compilation. The main program 
is loaded first, followed by any external subroutines and then the FORTRAN library files, FORT1 LB 
FORT2. LB, FORT3. LB and FORT4. LB: 

RLDR mainfile subfiles libraryfiles 

■° i0a " "'Sin program MAIN and subprograms SBRi, SBR2, and SBR3, the user would issue the 
command: 

RLDR MAIN SBRI SBR2 FORT1.LB FORT2.LB FORT3. LB FORT4. LB 

Loading- Multitask Environment 

In a multitask environment, the multitask library FMT. LB must be loaded before the other 
libraries. To load a multitasking FORTRAN program consisting of MAIN, TASK1 and TASK2, 
issue the command: 

RLDR MAIN TASK1 TASK2 FMT. LB FORT1. LB FORT2. LB FORT3. LB FORT4. LB 

When overlays are used, the overlays that belong to a given overlay area are enclosed in square 
brackets in the command line: 

RLDR MAIN [OV1, OV2 OV3] TASK1 TASK2 [OV4 OV5, OV6, OV7] [OV8. OV9] 
FMT. LB FORT1.LB FORT2. LB FORT3. LB FORT4. LB 



In this example, 



1. MAIN, the main program, and task subprograms TASK1 and TASK2 are loaded 
into save file MAIN. SV. Space is allotted in the save file for three overlay areas. 

2. Overlay -areag is shared by two overlays, the first containing OV1 and the other 
OV2 and OV3. 

3. Overlay-area! is shared by three overlays, the first containing OV4 and OV5, 
the second OV6, and the third OV7. 

4. Overlay -area 2 contains two overlays, OV8 and OV9. 

5. The overlays, divided into overlay areas, are loaded into MAIN. OL. 

LIMITATIONS OF RTOS 

Since RTOS is a compatible subset of RDOS, RTOS will support a subset of DGC Real Time 
FORTRAN IV. The only restriction on use of RT FORTRAN IV under RTOS is that only those real 
time calls which have corresponding system and task calls implemented in RTOS may be used. Thus 
CHANTASK and OVERLAY statements may not be used, and the following calls are not allowed: 



BACK 


CPART 


FBACK 


FSTAT 


IOPROG 


OVLOD 


SWAP 


BOOT 


DFILW 


FCHAN 


FSWAP 


MDIR 


OVOPN 


UPDATE 


CDIR 


DIR 


FCLOS 


GCEN 


ODIS 


RDCMN 


WRCMN 


CFILW 


DLINK 


FGND 


GCOUT 


OEBL 


RDOPR 


WRITR 


CHAIN 


DULNK 


FOVLD 


GDIR 


OVEXT 


RDRW 


WROPR 


CHLAT 


EBACK 


FOVRL 


GSYS 


OVEXX 


READR 


WRTR 


CHSAV 


EXBG 


FQTASK 


ICMN 


OVKIL 


RENAM 




CHSTS 


EXFG 


FSEEK 


IOPC 


OVKIX 


STAT 
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LIMITATIONS OF RTOS (Continued) 



In general, no disk I/O-related calls are available, with the exception of WRBLK and RDBLK 
for disk I/O. 

Memory Map of . MAIN at Run Time 
Top of Memory 



RDOS 



START OF . MAIN 
IN SOS 
ENVIRONMENT 







Disk Resident RDOS 




Core Resident RDOS 




User File Tables 




Blank Common 








Run Time 




Stack Segments 








Task Processing Modules 




Overlay Area 


1000 


.MAIN 
and all its subroutines 




Overlay Directory 


440 

427 


Task Control Blocks 


400 


User Status Table Ares 


377 
50 


. ZREL Pointers, Displacements 


47 
' 16 




Spare Programming Area 


j RDOS Communication Area 



QSP 

FSP 
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CHAPTER SIX 

INPUT/OUTPUT 



The FORTRAN statements READ and WRITE generate calls to entries in the FREAD routine of 
the Run Time library. These entries perform formatted or free form FORTRAN I/O of ASCII 
data or FORTRAN I/O of binary data. 

When formatted data is to be read or written, the general form of the call is 

JSR @<SUBR> 

FORTRAN address of the logical channel number 

FORTRAN address of the format statement text string (formatted I/O only) 

ELEMENT DESCRIPTOR SEQUENCE (S) 

5 

where SUBR is . FREAD for ASCII read, . FWRIT for ASCII write, .BRD for binary read, and . BWR 
for binary write. The integer 5 indicates the end of the calling sequence. This is necessary because 
the ELEMENT DESCRIPTOR SEQUENCES may be variable length. 

The ELEMENT DESCRIPTOR SEQUENCES describe fully the nature of each data type in the I/O 
list. One sequence is selected to describe each data element type in the I/O list. For example, the 
FORTRAN statement 

WRITE (10) 'REAL RESULT IS' ,X 

contains two data types: string and variable. Thus there will be two ELEMENT DESCRIPTOR 
SEQUENCES in the call to . FWRIT which is generated. 

The first word of each ELEMENT DESCRIPTOR SEQUENCE is an integer tag which labels the type 
of sequence which is to follow. There are eight possible tag descriptions: 

Tag Data Element Type 

Variable 

1 Array Element 

2 Array 

3 Left Parenthesis 

4 End of Loop Right Parenthesis 

6 String 

7 End of File Address 

8 Error Return Address 



VARIABLE DATA ELEMENT 

A variable data ELEMENT DESCRIPTOR SEQUENCE consists of three words. The first is the 
tag 0, as indicated above. The second is a code for the variable type: 

Code Variable Type 

1 Integer, Logical, Alphabetic /Hollerith 

2 SPFL 

3 DPFL 

4 SPCX 

5 DPCX 
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VARIABLE DATA ELEMENT (Continued) 

The third word is the FORTRAN ADDRESS of the variable. Thus the FORTRAN statement 

READ(11,1)TEST 
generates the following complete call to FREAD 



JSR @. FREA 
.CI 

L2. 

2 
V.-K) 

5 



FORTRAN ADDRESS of logical channel number 

FORTRAN ADDRESS of format statement text string 

Data element type - variable 

SPFL 

FORTRAN ADDRESS of variable 

Terminator 



ARRAY ELEMENT 

The second ELEMENT DESCRIPTOR SEQUENCE describes an Array Element in the I/O list and 
consists of a variable number of words. The first is the tag 1. The second is an integer indicating 
the number of parameters to follow, excluding the calling sequence delimiter (5). The third word 
is the FORTRAN ADDRESS of the Three Word Specifier, as described on page 3-Z The fourth 
word is 0. The fifth and subsequent words are the FORTRAN ADDRESSes of the subscripts in the 
I/O list. Thus the FORTRAN statements 

DIMENSION NAME (2) 



READ(11,100)NAME(1) 



generates the following call to FREAD: 



JSR@. 

.C3 

L2. 

1 

3 

V.-M) 



-C2 

5 



FREA 



FORTRAN ADDRESS of logical channel number 
FORTRAN ADDRESS of format statement text string 
Data element type - array element 
Number of parameters following 
FORTRAN ADDRESS of Three Word Specifier 
Predefined 

FORTRAN ADDRESS of subscript 
Terminator 



COMPLETE ARRAY 

A complete array ELEMENT DESCRIPTOR SEQUENCE consists of two words. The first is the 
tag 2. The second word is the FORTRAN ADDRESS of the Three Word Specifier. The FORTRAN 
statements 

DIMENSION A(10) 



READ BINARY (13)A 
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COMPLETE ARRAY (Continued) 

generate the following call to FREAD: 

JSR @. BRD 

. C3 ; FORTRAN ADDRESS of logical channel number 

;No format string 

2 ;Data element type - array 

V.+O ;FORTRAN ADDP.ESS of Three Word Specifier 

5 ; Terminator 

LEFT PARENTHESIS 

There are two possible ELEMENT DESCRIPTOR SEQUENCES for left parenthesis data elements, 
depending on whether the parenthesis is significant. Left parentheses are significant only in 
implied DO-loops or nests of implied DO-loops. 

An insignificant left parenthesis ELEMENT DESCRIPTOR SEQUENCE consists of two words. The 
first is the tag 3. The second is the FORTRAN ADDRESS of useless -right -parenthesis flag 
(integer 4), described in the RIGHT PARENTHESIS SEQUENCE., The FORTRAN statement 

READ (11,1) (TEST) 

generates the following call to FREAD: 

JSR @. FREA 

.CI ;FORTRAN ADDRESS of logical channel number 

L2. ; FORTRAN ADDRESS of format statement text string 

3 ;Data element type - left parenthesis 

L3. ; FORTRAN ADDRESS of useless- right -parenthesis flag 

;Data element type - variable 

2 ;SPFL 

V. -+0 ; FORTRAN ADDRESS of variable 

4 ;Data element type - right parenthesis 

5 ; Terminator 

A significant left parenthesis ELEMENT DESCRIPTOR SEQUENCE also consists of two words. 
The first is the tag 3. The second is the FORTRAN ADDRESS of useful-right -parenthesis flag 
# integer 4), described in the RIGHT PARENTHESIS SEQUENCE. The FORTRAN statements 
described in the RIGHT PARENTHESIS SEQUENCE. The FORTRAN statements 

DIMENSION TEST 1 (10) 



READ (11,1) (TEST1(I),I=1,7) 
generate the following call to FREAD: 
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LEFT PARENTHESIS (Continued) 

JSR@.FREA 

.C3 

L2. 

3 

L3. 

1 

3 

V.+O 



V.+3 

4 

V.+4 

.C2 

.C4 

.C2 

. -4 

5 



FORTRAN ADDRESS of the logical channel number 
FORTRAN ADDRESS of the format text string 
;Data element type - left parenthesis 
FORTRAN ADDRESS of useful-right-parenthesis flag 
;Data element type - array element 
Number of additional parameters in this DESCRIPTOR 
FORTRAN ADDRESS of Three Word Specifier 
Predefined 

FORTRAN ADDRESS of subscript 
Data element type - right parenthesis 
FORTRAN ADDRESS of indexing variable 
FORTRAN ADDRESS of start value 
FORTRAN ADDRESS of test value 
;FORTRAN ADDRESS of increment value 
Significant right parenthesis flag 
Terminator 



RIGHT PARENTHESIS 

Corresponding to the two left parenthesis sequences are two right parenthesis ELEMENT DESCRIPTOR 
SEQUENCES. Both have been illustrated in the examples for left parenthesis. 

An insignificant right parenthesis sequence consists of a single word, integer 4 A significant right 
parenthesis sequence consists of sixwords. The first is the tag 4. The second word is the FORTRAN 
ADDRESS of the indexing variable, followed by the FORTRAN ADDRESS of the start value, the 
FORTRAN ADDRESS of the test value, and FORTRAN ADDRESS of the increment value; the last 
word is . -4, which points to the FORTRAN ADDRESS of the indexing variable. 

STRING ELEMENT 

A string ELEMENT DESCRIPTOR SEQUENCE consists of a one word tag (6) and the text string. 
The FORTRAN statement 

WRITE (10) "MESSAGE" 
generates the following call to FREAD: 

JSR @. FWRI 

_ C1 ;FORTRAN ADDRESS of the logical channel number 

;No format text string 

6 ;Data element type - string 

. TXT /MESSAGE/ 

5 ; Terminator 

END-OF-FILE ELEMENT 

It is possible for program control to branch from a reading or writing sequence upon receipt of 

an end -of -file An END-OF-FILE DESCRIPTOR SEQUENCE consists of two words. The first is the 

tag 7. The second word is the FORTRAN ADDRESS of EOF Return. The FORTRAN statement 

READ (11, 1,END=7)A 
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END-OF-FILE ELEMENT (Continued) 



generates the following call to FREAD: 



JSR@ 
.CI 

L2. 

7 

L3. 



2 

V.+O 

5 



, FREA 



; FORTRAN ADDRESS of logical channel number 

; FORTRAN ADDRESS of format statement text string 

;Data element type - end -of -file element 

T-i f^ r» t-<t-» * *t a r-* r>i n t-> n n _£ r^ /"i T-* * 

jrwA.irvn.i\ iiL'urvrjOO oi i/Ui' iclui.ii 

;Data element type - variable 

;SPFL 

;FORTRAN ADDRESS of variable 

; Terminator 



ERROR RETURN ADDRESS 

If a user wishes to gain program control after an I/O error at the device level has been detected 
(parity, record size, etc.). the ERROR ELEMENT DESCRIPTOR SEQUENCE must be employed. 
The ERROR ELEMENT DESCRIPTOR SEQUENCE consists of two words. The first is the tag 8, 
and the second is the FORTRAN ADDRESS of the Error Return. The FORTRAN statement 

READ (11, 1,ERR=7)A 



generates the following call to FREAD: 



JSR@ 

.CI 

L2. 

10 

L3. 



2 

V.-rf) 

5 



FREA 



FORTRAN ADDRESS of logical channel number 

FORTRAN ADDRESS of format statement text string 

Data element type - error return 

FORTRAN ADDRESS of error return 

Data element type - variable 

SPFL 

FORTRAN ADDRESS of variable 

Terminator 
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USING THE RUN TIME LIBRARY 



STRUCTURE OF SUBROUTINE DESCRIPTIONS 

Not all subroutines in the FORTRAN IV Run Time Library are fully described in the following 
pages. Documentation is not included for tiiose routines which the user is not likely to need to 
access, such as the multitask scheduler, FTMAX. However, Appendix A includes a complete 
list of routine titles and meaningful NREL entries. 

Each subroutine description is divided into the following categories: Title, Supporting Subroutines 
(and Displacements), Subroutine Size, Entry Points, Function, Calling Sequence(s), and Notes. 

The "Title" is a name selected to describe the subroutine being discussed, corresponding to 
loader -recognized titles. Appendix A summarizes loader-recognized titles and NREL entry 
points. 

The "Function" section is followed by "Calling Sequence" for each distinct functional entry 
point. The "Calling Sequence" illustrates the applicable entry point, input parameters, and output 
result. Requisite inputs and output results are enclosed in parentheses. In most cases where 
alternate entry points or alternate entry means (such as FCALL and JSR @ entries) are possible, 
the JSR @ entry will usually be given in the calling sequence, with the FCALL entry point listed 
in the "Notes". 

The section titled "Subroutine Size" gives the octal number of locations required in both page zero 
and in the remainder of core memory for this routine, including all entries to the routine. The 
figures do not include the storage requirements of any auxiliary subroutines required and called 
by this routine for support. Subroutines with the same Loader Title in the Summary Table share 
common coding in a load module. Thus, if either one or all of the subroutines in a module are 
loaded, the core storage requirements for these subroutines are the same and are equal to the 
size given for the module. 

Selected subroutines have been measured to determine their typical execution times, and these 
are given in the "Notes". The following comparisons of typical execution times of single precision 
real arithmetic functions on the SUPERNOVA are given to illustrate the advantage obtained by 
using the hardware fixed point multiply /divide option. 



Single Precision 


Typical Execution Time With 


Typical Execution Time 


Real Subroutine 


Software 


Multiply /Divide 


Hardware Multiply /Divide 


SIN 




3. 3 ms 




2.0 ms 


COS 




3.0 ms 




1.9 ms 


TAN 




4.2 ms 




2. 5 ms 


ATAN 




3. 6 ms 




2. 2 ms 


EXP 




4. 9 ms 




2.9 ms 


LN 




3.7 ms 




2.4 ms 


TANH 




6. 3 ms 




4.2 ms 


SQRT 




2.9 ms 




1. 7 ms 


ALOG10 




4. 1 ms 




2. 6 ms 


ATAN2 




5. 3 ms 




3.4 ms 



SAMPLE SUPERNOVA EXECUTION TIMES 
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INTERFACE BETWEEN ASSEMBLY LANGUAGE AND FORTRAN PROGRAMS 

Several rules must be followed when writing a function or subroutine in assembly language which 
will be called by a FORTRAN program, or which will call FORTRAN programs or subprograms: 

1. The first five letters in the name must be unique and distinct from library defined entries. 

2. Include the statement . E NT name. 

3. Select a unique title (. TITL title. ) 

The code generated by the FORTRAN statement CALL NAME (argl, arg2 argn) is as follows: 

. EXTN NAME 

JSRO.FCAL 

NAME 

n ; number of arguments 

FORTRAN ADDRESS of argl 
FORTRAN ADDRESS of arg2 



FORTRAN ADDRESS of argn 

All externals which are to be resolved in the displacement field of an instruction at load time are 
specified by . EXTD . Examples of these are page zero entries and page zero flags. All other 
externals (primarily FCALL entries) are specified by . EXTN . 

n represents an integer equal to the number of parameters in the calling sequence. The . FCAL 
routine saves accumulators, carry and the current FSP, and allocates a stack frame for the called 
subprogram. The statement . EXTN NAME need appear only once in a program, regardless of 
how many times NAME is called from within the program. 

Corresponding to the calling sequence generated by the FORTRAN CALL statement is the 
receiving sequence in the called subroutine. This is the means by which the called subroutine 
fetches the calling parameters. The form of the receiving sequence generated by use of the 
FORTRAN statement SUBROUTINE is as follows: 

FS 

NAME: JSR@.CPYL 



where FS is the number of temporary locations required by the subroutine NAME in the FORTRAN 
stack. FS must be large enough to provide the maximum number of arguments expected by the 
routine. . CPYL converts the n argument addresses to effective addresses and places these 

addresses in locations TMP, TMP+1 TMP+n-1 on the subroutine's FORTRAN stack. Even 

if no arguments are passed, . CPYL is still called to correct the contents of FRTN so that 
program control will return to the next sequential FORTRAN statement. 

The assembly language code generated by the FORTRAN RETURN statement is JSR §. FRET . 
This routine restores accumulators, carry, the contents of FSP, and places the current FSP in 
AC3. 

To call a FORTRAN subroutine or function in an assembly level program, the arguments passed 
to the subprogram must agree in number, order and type with the arguments required by the 
subprogram. Given the following FORTRAN subroutine statement, 



Licensed Material - Property of Data General Corporation 

INTERFACE BETWEEN ASSEMBLY LANGUAGE AND FORTRAN PROGRAMS (Continued) 

SUBROUTINE name (argl, arg2, . . . , argn) 

the assembly language code required to call this routine would be 

. EXTN name 
FCALL 



N 

FORTRAN ADDRESS 1 \ 

I Argument Addresses 

FORTRAN ADDRESS N J 

Similarly, given the following FORTRAN function, 

FUNCTION name (argl, arg2, . . . , argn) 

the assembly language code required to call this function would be 

. EXTN name 

FCALL 

name 

N+l 

FORTRAN ADDRESS of result 

FORTRAN ADDRESS 1 



Argument Addresses 



FORTRAN ADDRESS N 



If there is no argument list in either a subroutine or function definition, N=0 must be specified 
explicitly. 

If any text strings are to be passed to FORTRAN routines, the first must be preceded by a 
statement to force the string of text in left to right order: . TXTN 1 . 

RUN TIME ERROR MESSAGES 



At the initiation of execution, if there is not enough space to allocate unlabeled COMMON and the 
initial stack frame, the message 

MEMOVFL 

will be typed. 

All other non-fatal runtime error messages are printed as follows: 

RUNTIME ERROR nn AT LOC. xxxxxx C ALLED FROM LOC. yyyyyy 

where nn is a decimal number representing a non-fatal error code. 
xxxxxx i s the address where the error was detected. 
yyyyyy is the address of the first machine instruction of the FORTRAN statement that was 

being executed when the failure occurred. The address will be within the user's 

main program or one of his subroutines. 
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RUN TIME ERROR MESSAGES (Continued) 
Execution will continue for non-fatal errors. If the error is fatal the message will read: 

FATAL RUNTIME ERROR nn AT LOC. xxxxxx CALLED FROM LOC. yyyyyy 
and execution will halt. 

The decimal error codes and their meanings are 

Code Meaning 

1 Stack overflow. 

2 Computed GO TO error. 

4 Division by zero. 

5 Integer overflow. 

6 Integer power error (illegal or overflow). 

7 Floating point underflow. 

8 Floating point overflow. 

9 Illegal format syntax. 

1 1 Logical conversion error. 

13 Number conversion error. 

14 I/O error. 

15 Field error (i.e., F5. 10, E5.4, etc.). 

16 Square root of negative number. 

17 Log of negative number. 

18 Channel not open. 

19 Channel already open. 

20 No channels available. 

21 RDOS/SOS exceptional status. 

24 Exponential over/underflow. 

25 Array element out of bounds. 

26 Negative base for floating-point power. 

27 Number Stack overflow. 

28 BACKSPACE not implemented. 

29 Attempt to restore status of channel when the status was not saved. 

30 Queued task error. 

31 Seek on a non -random file. 

32 Overlay aborted. 

33 Illegal argument. 

34 Delete error (file open). 

35 Overlay error in overlay kill. 

36 Undefined entry. ** 



** Occurs when an attempt is made to call a 
subroutine that was not loaded. 
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INTEGER ROUTINES 



RASC ,,.--.,,,,,,.,,....,,...,,,,., 8-3 

BDASC 8-3 

1ABS 8-4 

IDIM 8-5 

IFWER 8-5 

ISIGN 8-6 

MNMXO 8-6 

MOD 8-7 

MULT 8-3 

SDVD 8-9 

CMPV o i n 
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Integer 



--- ROUTINE: BASC 

Supporting Subroutines : FRET, FSAV; . STBT 

Subroutine Size: No page zero locations and 35 8 locations of normally relocatable 
memory. 

Entry: . BASC 

Function: Converts an unsigned fixed point number to an ASCII string of six 
digits. 

Calling Sequence : 

(ACO contains the byte pointer to the returned string. AC1 contains the 
number to be converted. ) 

FCALL 
.BASC 

(Leading zeroes are not suppressed; string is terminated with a null byte, 
ACO contains updated pointer to null byte. ) 

Notes : 

(1) Accumulators and carry are restored on exit. 

(2) . BASC must be referenced by an . EXTN statement. 

(3) The input fixed point number is of the form 

N 6 N 5 N 4 N 3 N 2 N 1 
where N is an octal digit. 

(4) The output ASCII string is of the form 

A 6 A 5 
A 4 A 3 

A 2 A 1 


where A n corresponds to N n . 

(5) No error messages are output 
--- ROUTINE : BDASC 

Supporting Subroutines : FRET, FSAV; .STBT 

Subroutine Size: No page zero locations and 62g locations of normally relocatable 
memory. 

Entry: .BDASC 

Function: Converts an unsigned fixed point number to a string of ASCII decimal 
characters. 
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Integer 



ROUTINE: BDASC (Continued) 

Entry: . BDASC (Continued) 

Calling Sequence : 

(ACO contains the output string pointer, AC1 contains the number which is 
to be converted. ) 

FCALL 
. BDASC 

(Leading zeroes are suppressed; string is terminated with a null byte. 
ACO contains the updated pointer to the null byte. ) 

Notes : 

(1) Accumulators and carry are restored on exit. 

(2) . BDASC must be referenced by an . EXTN statement 

(3) No error messages are generated. 

ROUTINE: IABS 

Supporting Subroutines : FRET, FSAV; . CPYARG 

Subroutine Size : 1 page zero location and llg locations of normally relocatable 
memory. 

Entry: IA.S 

Function: Computes the absolute value of an integer argument. 

Calling Sequence : 

JSR @IA.S 

FORTRAN ADDRESS of result 

FORTRAN ADDRESS of argument 

(The location containing the result will be expressed as a FORTRAN 
ADDRESS immediately following the call. ) 

Notes : 

(1) Accumulators and carry are restored on exit. 

(2) IA. S must be referenced by an . EXTD statement. The FCALL entry point . IABS 
must be referenced by an . EXTN statement. 

(3) No error messages are generated. 
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Integer 



-- ROUTINE: IDIM 



Supporting Subroutines: FRET, FSAV; . FARG 

Subroutine Size: 1 page zero location and 13g locations of normally relocatable 
memory. 



Entry: ID.M 

Function: Computes the positive difference of two integers I and J. 

Calling Sequence : 

JSR &ID.M 

FORTRAN ADDRESS of result 
FORTRAN ADDRESS of I 
FORTRAN ADDRESS of J 

Notes : 

(1) Accumulators and carry are restored on exit. 

(2) ID. M must be referenced by an . EXTD statement. The FCALL entry . IDIM must 
be referenced by an . EXTN statement. 

(3) No error messages are generated. 

(4) If I-J<0, the result is 0; otherwise, the result is the difference I-J. 

ROUTINE: IPWER 

Supporting Subroutines : MPY; SP, . RTES 

Subroutine Size: 1 page zero location and 53g locations of normally relocatable 
memory. 

Entry: . IFWR 

Function: Raises an integer to an integer power, with an integer result. 
Calling Sequence : 

(The integral base is in AC1, and the integral power is in ACO. ) 
JSR (ft. IFWR 
(The result is in AC1. ) 
Notes : 

(1) Accumulators and carry are not restored on exit. 

(2) An error message is issued if overflow occurs or if a zero base was input. 

(3) . IFWR must be referenced by an . EXTD statement. 
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Integer 



- ROUTINE : ISIGN 

Supporting Subroutines : FRET, FSAV; . FARG 

Subroutine Size: 1 page zero location and 14 8 locations of normally relocatable 
memory. 

Entry: IS. GN 

Function: Transfers the sign of one integer to another integer. 

Calling Sequence : 

JSR @IS.GN 

FORTRAN ADDRESS of result 

FORTRAN ADDRESS of integer receiving the sign 

FORTRAN ADDRESS of integer whose sign to transfer 

Notes : 

(1) Accumulators and carry are restored on exit. 

(2) IS. GN must be referenced by an . EXTD statement. The FCALL entry . ISIGN 
must be referenced by an . EXTN statement. 

(3) No error messages are generated. 

• ROUTINE: MNMXO 

Supporting Subroutines: FRET, FSAV; .FARG 

Subroutine Size: 2 page zero locations and 44 g locations of normally relocatable 
memory. 

Entry: MA.O 

Function: Selects the largest member from a set of integers, expressing the selection 
as an integer. 

Calling Sequence : 

JSR @MA.O 

N+l (where N is the number of members in the set) 

FORTRAN ADDRESS of result 

FORTRAN ADDRESS of I Q 

FORTRAN ADDRESS of ly 

FORTRAN ADDRESS of I n _ 1 

(The integer result is stored at the FORTRAN ADDRESS of the result 
given in the calling sequence. ) 

Entry: MI.O 

Function : Selects the smallest member from a set of integers, expressing the 
~ selection as an integer. 
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Integer 



ROUTINE: MNMXO (Continued) 
Entry: MI.O (Continued) 
Calling Sequence : 



JSR ©MI.O 

N+l (where N is the number of members in the set) 

FORTRAN ADDRESS of result 

FORTRAN ADDRESS of I 

FORTRAN ADDRESS of Ij 

FORTRAN ADDRESS of I n _j_ 

(The integer result is stored at the FORTRAN ADDRESS of the result 
given in the calling sequence.) 



Notes: 



(1) Accumulators and carry are restored on exit. 

(2) MA.O and MI. must be referenced by .EXTD statements. The FCALL entry 
points, MAXO and MINO, must be referenced by . EXTN statements. 



ROUTINE : MOD 



Supporting Subroutines : FSAV, FRET; . FARG, . SDVD 

Subroutine Size: 1 page zero location and llg locations of normally relocatable 
memory. 

Entry: MO . 

Function: Fetches the remainder of an integer quotient when integer Ij is divided 
by integer lj • 

Calling Sequence : 

JSR @MO. 

FORTRAN ADDRESS of result 
FORTRAN ADDRESS of integer I x 
FORTRAN ADDRESS of integer I 2 

(The location of the result is expressed as a FORTRAN ADDRESS 
immediately following the call. ) 



Notes: 



(1) Accumulators and carry are restored on exit. 

(2) MO. must be referenced by an . EXTD statement. The FCALL entry .MOD 
must be referenced by an . EXTN statement. 

(3) In the case of an illegal division, an error return will be made by .SDVD, and 
a zero result will be returned. 
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--- ROUTINE: MULT 



Supporting Subroutines : ; . SVO 

Subroutine Size: 3 page zero locations and 33 8 locations of normally relocatable 
memory. 

Entry: MFY 

Function: Performs unsigned integer multiplication on NOVA family machines 
lacking the hardware multiply /divide. 

Calling Sequence : 

(AC1 and AC2 contain the multiplier and multiplicand upon entry to 
the routine; contents of ACO will be added to the product. ) 

MPY 

(The product of AC1 and AC2 is computed, and the entry contents of 
ACO is added to the product. This sum is returned with the more sig- 
nificant half in ACO, the less significant half in AC1. AC3 contains 
the caller's FSP upon exit. ) 

Entry: MPYO 

Function: Performs unsigned integer multiplication on NOVA family machines 
lacking the hardware multiply /divide. 

Calling Sequence : 

(AC1 and AC2 contain the multiplier and multiplicand upon entry. ) 

MPYO 

(The product of AC1 and AC2 is returned with the less significant 
half in AC1, and the more significant half in ACO. AC3 contains 
the caller's FSP on exit. ) 

Entry: DVD 

Function: Performs unsigned integer division on NOVA family machines 
lacking the hardware multiply /divide. 

Calling Sequence: 

(The high and low parts of the dividend are in ACO and AC1, the 
divisor is in AC2. ) 

DVD 

(The remainder is in ACO, the quotient is in AC1, AC2 is unchanged, 
and carry is cleared; AC3 is set to FSP. Upon overflow, carry is 
set, FSP is placed in AC3, and return is made with the accumulators 
unchanged. ) 
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Integer 



ROUTINE: MULT (Continued) 



Notes: 



(1) MPY, MPYO, and DVD must each be referenced by an . EXTN statement. 

(2) Typical execution times for MPYO are 74 us on the SUPERNOVA and 349 MS 
on the NOVA. 

(3) Typical execution times for MPY are 73 us on the SUPERNOVA and 343 ps 
on the NOVA. 

(4) Typical execution times for DVD are 96 us on the SUPERNOVA and 491 us 
on the NOVA. 



ROUTINE: SDVD 



Supporting Subroutines : DVD; . RTES, SP 

Subroutine Size : 1 page zero location and 46g locations of normally relocatable 
memory. 

Entry: .SDVD 

Function: Performs a division of two signed integers. 

Calling Sequence : 

vACO contains the signed divisor, AC1 contains the signed dividend. ) 

JSR (§. SDVD 

(ACO contains the signed remainder, AC1 contains the signed quotient. ) 

Notes : 

(1) Accumulators and carry are restored except as noted. 

(2) . SDVD must be referenced by an . EXTD statement. 

(3) Division by zero or input value 2" will cause an error message to be issued, 
with a zero quotient and remainder. 
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--ROUTINE: SMPY 



Supporting Subroutines : MPY; .RTES, SP 

Subroutine Size: 1 page zero location and 24g locations of normally relocatable 
memory. 



Entry: .SMPY 

Function: Performs a multiplication of two signed integers. 

Calling Sequence : 

(ACO contains the signed multiplicand, AC1 contains the signed 
multiplier. ) 

JSR @.SMPY 

(AC1 contains the signed result; the result is if overflow occurs. ) 



Notes : 



(1) Accumulators and carry are restored except as noted. 

(2) . SMPY must be referenced by an . EXTD statement. 

(3) An error message is output if overflow occurs. 
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ROUTINE: ABS 



SPFL 



Supporting Subroutines : FSAV, FQRET; NSP 

Subroutine Size: 1 page zero location and 6 locations of normally relocatable 
memory. 

Entry: .ABS 

Function : Computes the absolute value of any real number. 

Calling Sequence: 

(The number whose absolute value is to be calculated is on top of 
the number stack. ) 

JSR (gi.ABS 

(The absolute value of the original number is on top of the number stack. ) 



Notes: 



(1) Accumulators and carry are restored on exit. 

(2) ABS. , XAS. , and DABS, are all equivalent to .ABS . .ABS must be referenced by 
an . EXTD statement, and ABS. , XAS. , and DABS, by . EXTN statements. The 
FCALL entry, ABS, must be referenced by an . EXTN statement. 

(3) No error messages are generated. 



-- ROUTINE: AINT 



Supporting Subroutines : ;.FRG0, FFLDI, NSP, SP 

Subroutine Size: 1 page zero location and 60g locations of normally relocatable 
memory. 

Entry: ALT 

Function : Truncates a single precision real number. 

Calling Sequence: 

JSR (gAI.T 

FORTRAN ADDRESS of number to be truncated. 

(The truncated real is placed on the number stack. ) 

Notes : 

(1) Accumulators and carry are not restored on exit. 

(2) XA. T is equivalent to AI.T and both must be referenced by . EXTD statements. 

(3) No error messages are generated. 



9-3 



Licensed Material - Property of Data General Corporation 



SPFL 



---ROUTINE: ALG 



Supporting Subroutines : FRET, FSAV; NSP, . RTER, . FARG, FRLD1, 
FSB1, FAD1, FML1, FDV1, FFLD1, FPLY1, 
FCLE1, FXFL1, FLIP1 

Subroutine Size: 2 page zero locations and 205g locations of normally relocatable 
memory. 

Entry: A LOG. 

Function : Computes the single precision real natural logarithm of a single precision 
real positive argument x. 

Calling Sequence: 

(Input argument x is placed on top of the number stack. ) 

A LOG. 

(Output result replaces x on top of the number stack. ) 

Entry: AL.GO 

Function: Computes the single precision real base 10 logarithm of a single precision 
real argument x. 

Calling Sequence: 

JSR @AL.G0 
FORTRAN ADDRESS of x 

(Output result is placed on top of number stack. ) 

Notes : 

(1) Accumulators and carry are restored on exit. 

(2) ALOG. and its FCALL entry, ALG, must both be referenced by . EXTN statements. 
AL. GO must be referenced by an . EXTD statement and its FCALL entry, . ALG10 , 
must be referenced by an . EXTN statement. 

(3) In the case of a zero argument, an error message is given and the largest possible 
real number is returned as a result. 

(4) In the case of a negative argument, an error message is given and the logarithm 
of the argument is computed. 
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...ROUTINE: AMNX1 



Supporting Subroutines : FSAV, FRET; . FARG, FFLD1, FFST1, FCLT1 

Subroutine Size: 2 page zero locations and 74g locations of normally relocatable 
memory. 

Entry: AM. XI, AMAX1 

Function: Selects the largest member from a set of single precision real numbers, 
expressing the result as a single precision real number. 

Calling Sequence: 

JSR @AM.l 

N (the number of members in the set) 
FORTRAN ADDRESS of Rq 
FORTRAN ADDRESS of R x 

FORTRAN ADDRESS of R 

n-1 

(The result is placed on the number stack. ) 

OR 

FCALL 

AMAX1 

N+l (where N is the number of elements in the set) 

FORTRAN ADDRESS of result 

FORTRAN ADDRESS of R 

FORTRAN ADDRESS of R± 

FORTRAN ADDRESS of R^ 

(The result is expressed as a single precision real stored at the FORTRAN 
ADDRESS of the result given in the calling sequence. ) 

Entry: AM.N1, AMIN1 

Function: Selects the smallest member from a set of single precision real numbers, 
expressing the selection as a single precision real number. 

Calling Sequence : 

JSR & AM.l 

N (the number of members in the set) 
FORTRAN ADDRESS of R Q 
FORTRAN ADDRESS of Ry 

FORTRAN ADDRESS of R n _! 

(The result is placed on the number stack) 
O R 
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ROUTINE: AMNX1 (Continued) 

Calling Sequence : (Continued) 



SPFL 



FCALL 

AMIN1 

N+l (where N is the number of elements in the set) 

FORTRAN ADDRESS of result 

FORTRAN ADDRESS of R 

FORTRAN ADDRESS of R x 

FORTRAN ADDRESS of R R . 1 

(The result is expressed as a single precision real stored at the FORTRAN 
ADDRESS of the result given in the calling sequence. ) 



Notes: 



(1) Accumulators and carry are restored on exit. 

(2) AM. XI and AM. Nl must be referenced by . EXTD statements. AMAXland AMIN1 
must be referenced by . EXTN statements. 

(3) No error messages are generated. 



-- ROUTINE: A MOD 



Supporting Subroutines : ; .FRGO, NSP, FML1, FDV1, FFLD1 

Subroutine Size: 1 page zero location and 100 g locations of normally relocatable 
memory. 

Entry: AM.D 

Function: Fetches the remainder in the quotient of two single precision real arguments. 

Calling Sequence: 

JSR @AM.D 

FORTRAN ADDRESS of dividend 

FORTRAN ADDRESS of divisor 

(Result is placed on the top of the number stack. ) 

Notes: 

(1) Contents of accumulators and carry are lost. 

(2) AM.D must be referenced by an . EXTD statement. 

(3) If the quotient causes overflow or underflow, an error message is output by 
FDV1 and no meaningful result is obtained. 
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ROUTINE: ATN 



SPFL 



Supporting Subroutines : FRET, FSAV; NSP, . FARG, FRLD1, FAD1, FML1, 

FDV1, FPLY1, FSB1, FLIP1, FCLT1, FNEG1, FFLD1 

Subroutine Size: 2 page zero locations and 222 g locations of normally relocatable 
memory. 

Entry: ATA In. 

Function: Computes the real arctangent of a real argument 

Calling Sequence : 

(Input argument x on top of the number stack. ) 

ATAN. 

(Output argument replaces x on the number stack. ) 

Entry: AT.N2 

Function: Computes the real arctangent of the quotient of two real arguments, y/x. 

Calling Sequence : 

JSR (SAT.N2 

FORTRAN ADDRESS of y 

FORTRAN ADDRESS of x 

(Output argument is placed on top of the stack. ) 

Notes : 

(1) Accumulators and carry are restored on exit. 

(2) ATAN. must be referenced by an . EXTN stateme . 
AT. N2 must be referenced by an . EXTD statement. 

ATAN. has an FCALL entry point, ATN, which must be referenced by an . EXTN 
statement. 

(3) Typical execution times are 13 ms for the NOVA with software multiply /divide 
and 2.2 ms for the SUPERNOVA with hardware fixed point multiply /divide. 

(4) The routine will accept input arguments of any size, but results computed by 
the routine will fall within the following ranges: 

- tt /2<ATN(x)<7r/2 

- 7i<ATN2(x, y)<7t 

(5) Overflow is possible as the divisor x approaches zero. In the case of overflow, 
+ or - tt/2 is returned. 
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--- ROUTINE: COS 



SPFL 



Supporting Subroutines: FRET, FSAV; NSP, FPLY1, FRLD1, FDV1, FML1, 
FSB1, FNEG1, FBRK1 

Subroutine Size: 2 page zero locations and 145g locations of normally relocatable 
memory. 

Entry: COS . 

Function: Computes the real cosine of an argument x expressed as a single precision 
real number. 

Calling Sequence : 

(Input argument x is placed on top of the number stack. ) 

COS. 

(Output result replaces x on the number stack. ) 

Entry: SIN. 

Function: Computes the real sine of an argument x expressed as a single precision 
real number. 

Calling Sequence : 

(Input argument x is placed on top of the number stack. ) 

SIN. 

(Output result replaces x on the number stack. ) 

Notes : 

(1) Accumulators and carry are restored on exit. 

(2) COS. and SIN. must be referenced by . EXTN statements. 

(3) Typical execution times are 13 ms for the NOVA with software multiply /divide 
and 1. 9 ms for the SUPERNOVA with hardware fixed point multiply /divide. 

(4) In the case of large arguments of the form 2mr+e, -t-c 9 < it, when n becomes 
very large, significant digits will be lost in the result. 



--ROUTINE: DIM 



Supporting Subroutines : ; . FRGO, NSP, FFLD1, FRLD1, FCLT1, FSB1 

Subroutine Size: 1 page zero location and 323 locations of normally relocatable 
memory. 

Entry: PI. 

Function: Computes the positive difference of two SPFL real numbers, R and S. 
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ROUTINE: DIM (Continued) 
Entry: PI. (Continued) 
Calling Sequence: 



JSR @ DL 

FORTRAN ADDRESS of R 

FORTRAN ADDRESS of S 



Notes : 



(1) Accumulators and carry are not restored on exit. 

(2) XD. is equivalent to DI. and both must be referenced by . EXTD statements. 

(3) If R-S ^ the result is zero; otherwise, the result is the difference R-S. The 
result is placed on the number stack. 



ROUTINE: EXP 



Supporting Subroutines : FRET, FSAV; NSP, .RTER, FPLY1, FSGN1, FRLD1, 
FSB1, FDV1, FML1, FLIP1, FBRK1 

Subroutine Size : 1 page zero location and 160 g locations of normally relocatable 
memory. 

Entry: EXP. 

Function: Computes the real value of e x for x any single precision floating point 
argument. 

Calling Sequence : 

(Input argument x on top of number stack. ) 

EXP. 

(Output replaces x on top of number stack. ) 

Notes : 

(1) Accumulators and carry are restored on exit. 

(2) EXP. must be referenced by an . EXTN statement. The FCALL entry point 
EXPO must also be referenced by an . EXTN statement. 

(3) If x is the input argument, the routine performs the following calculation: 

e x = x *] 0ge2 = 2 (I+F) 

where I and F are the integral and fractional portions of the power whose base 
is 2. The argument x of e x must be selected so that I < 175g. 

(4) If either underflow or overflow occurs, an error message is typed on the TTY 
printer, and zero or the greatest possible real value replaces x on the stack. 
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SPFL 
ROUTINE: EXP (Continued) "~ 



Notes: (Continued) 



^o an prrnr inps'iapp is 



(5) In the case of very large I values, where I > n*2 iu , an error message 
output by FLFX1 (which is called by FBRK1). 



ROUTINE: EXPC 



Supporting Subroutines : : FRLD1, FML1, FLIP1, FPLY1, FSB1, FDV1, 

.NIR, SP 

Subroutine Size: 1 page zero location and 100s locations of normally relocatable 
memory. 

Entry: EXPC 

Function: Calculates the value e x -l for x a single precision real number. 

Calling Sequence : 

(Input argument x is on top of number stack. ) 

JSR (g'EXPC 

(Result replaces x on number stack.) 

Notes : 

(1) Accumulators and carry are not restored on exit. 

(2) EXPC must be referenced by an . EXTD statement. 

(3) x must be selected such that 0<x*log 10 e < 1/2. No error message is issued if 
x is selected to yield a value outside the acceptable range. 



---ROUTINE: FL 



Supporting Subroutines : DVD, MFY; SP, FLSP, .RTFS, .NDSP 

Subroutine Size: 17 8 page zero locations and 754 8 locations of normally relocatable 
memory. 

Entry: FFLD1 

Function: Unpacks and loads a single precision real number onto the number stack. 

Calling Sequence : 

FFLD1 

FORTRAN ADDRESS of packed number 

Entry: FFST1 

Function: Packs and stores a single precision real number from the number stack 
into a FORTRAN ADDRESS 
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SPFL 



ROUTINE: FL (Continued 

Entry: FFST1 (Continued) 

Calling Sequence : 

FFST1 

FORTRAN ADDRESS of destination 

(The number stack is popped, and the popped number is packed and 
stored at the specified FORTRAN ADDRESS, with rounding. ) 

Entry: FAD1 

Function: Adds two single precision real numbers. 

Calling Sequence : 
FAD1 

(The sum of the top, OP1, and next-to-top, OP2, numbers on the 
number stack is computed; OP1 is popped and the sum replaces 0P2. ) 

Entry: FSB1 

Function: Subtracts two single precision real numbers. 

Calling Sequence : 

FSB1 

(The top number on the stack, OP1, is subtracted from the next -to-top 
number, OP2; OP1 is popped and the value of OP2-OP1 replaces OP2. 

Entry: FCLT1, FCLE1, FCEQ1, FCGE1, FCGT1 

Function: Compares the size and sign of two single precision real numbers, and 
sets the carry bit to a one if the specified condition is true. Conditions 
which may be examined are as follows: 

OP2 < OP1 -- FCLT1 

OP2 < OP1 -- FCLE1 

OP2 = OP1 -- FCEQ1 

OP2 > OP1 -- FCGE1 

OP2 > OP1 -- FCGT1 

where OP1 is the top number on the number stack and OP2 is the next- 
to-top number on the stack. 

Calling Sequence : 

(The two numbers to be compared are loaded on the number stack. ) 

FCLT1 (or FCLE1, FCEQ1, etc.) 

(Carry is set to a one if the comparison yields an affirmative result, 
otherwise carry is set to a zero. Both compared numbers are popped 
from the stack. ) 
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ROUTINE: FL (Continued) 
Entry: FML1 

Function: Multiplies two single precision real numbers. 
Calling Sequence : 

FML1 

(The product of the top.OPl, and next-to-top, OP2, numbers on the 
number stack is computed; OP1 is popped, and the product replaces 
OP2.) 

Entry: FDV1 

Function: Divides two single precision real numbers. 

Calling Sequence : 

FDV1 

(The quotient of the next-to-top, OP2 and top, OP1, numbers on the 
number stack is computed; OP1 is popped, and OP2/OPlreplaces OP2 
on the stack. ) 

Entry: FNEG1 

Function: Changes the sign of a single precision real number at the top of the 
number stack. 

Calling Sequence : 

FNEG1 

(The sign of the number on the top of the number stack is changed. ) 

Entry: FSGN1 

Function: Examines the sign of a single precision real number. 
Calling Sequence : 

(The number which is to be examined is at the top of the number 

FSGN1 

(ACO is returned with -1, 0, or 1, corresponding to a negative, zero, 
or positive state of the examined number. The examined number is 
popped from the number stack. ) 

Entry: FXFL1 

Function: Converts a fixed point number to an unpacked single precision real and 
loads it on the number stack. 
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ROUTINE: FL (Continued) 

Entry: FXFL1 (Continued) 

Calling Sequence: 

FXFL1 

FORTRAN ADDRESS of fixed point number I 

(I is converted to a single precision floating point number which is 
loaded on the number stack. ) 

Entry: FLFX1 

Function: Pops a single precision real number from the number stack, converts 

it to fixed point format, and stores it at a specified FORTRAN ADDRESS. 

Calling Sequence : 

FLFX1 

FORTRAN ADDDRESS to receive I 

(The top number on the number stack is converted to a fixed point 
number I, the stack is popped, and I is stored at the FORTRAN ADDRESS 
following the call. ) 



Notes : 



(1) Accumulators and carry are not restored on exit. 

(2) FFLD1, FFST1, FAD1, FSB1, FCLT1, FCLE1, FCEQ1, FCGE1, 
FCGT1, FML1, FDV1, FNEG1, FXFL1 and FLFX1 must all be referenced 



(3) JSR @DB. E is equivalent to FFLD1 and DB. E must be referenced by an . EXTD 
statement. JSR @FL.AT is equivalent to FLFX1 and must be referenced by an 

. EXTD statement. 

(4) Error messages are generated on stack overflow or underflow. Error messages 
are also generated whenever a truncation of significant exponent digits occurs as 
the result of packing an unpacked number. An error message will also be issued 
if the input argument to FLFX1 falls outside the range [-2 15 +1, +2 -1], and a 
signed maximum integer is returned as a result. If the input argument for FLFX1 
is in the range <-l, +1 >, zero is returned as a result. 

(5) Numbers to be placed on the number stack are normalized after arithmetic 
operations. 



ROUTINE: FPWER 



Supporting Subroutines : : FLIP1, NSP, .RTES, SP, FRLD1, FML1, ALOG. EXP. 

Subroutine Size: 1 page zero location and 53g locations of normally relocatable 
memory. 
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ROUTINE: FPWER (Continued) 



Entry: FPWR1 



Function: Raises a non-negative single precision real base to a single precision 
real power. 

Calling Sequence: 

(The real power is loaded on the number stack, and the real base is 
placed just below the power on the stack. ) 

FFWR1 

(The real power is removed from the number stack and the result 
replaces the base at the top of the stack. ) 



Notes: 



(1) Accumulators and carry are not restored on exit. 

(2) FPWR1 must be referenced by an . EXTN statement. 

(3) This routine generates an error message on receipt of a negative base argument, 
and returns the negative base as the result; error messages are generated by 
the supporting routines if stack underflow or overflow occurs. 

(4) Typical execution times are 31 ms for the NOVA with software multiply /divide 
and 4.9 ms for the SUPERNOVA with hardware fixed point multiply /divide. 



ROUTINE: PLY1 



Supporting Subroutines : ; FRST1, FRLD1, FML1, FAD1, NSP, SP 

Subroutine Size: 1 page zero location and 33g locations of normally relocatable 
memory. 

Entry: FPLY1 

Function: Computes a polynomial P(x) for x a single precision real argument. 

Calling Sequence: 

/Tiin jnty,t T^rnimnnt v ip of- *-Ua *-nr\ r\f fhe number stac k ACO contains 
the start address of LIST + 1. See Notes. ) 

FPLY1 

(The output result replaces the input argument on the number stack. ) 



Notes : 



(1) Accumulators and carry are not restored on exit. 

(2) FPLY1 must be referenced by an .EXTN statement. 
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ROUTINE: PLY1 (Continued) 
Notes : (Continued) 

(3) P(x) is of the formP(x) = C + Cix + C 2 x 2 + . . . + C n x n where c . . C n 

are single precision real coefficients and all powers of x are positive integers. 

The order of the coefficients list is 

LIST: Single precision fixed point order of the polynomial. 
LIST+1: Real coefficient C n in unpacked form. 

LIST+7: Real coefficient Cg in unpacked form. 

LIST+l+6n: Real Coefficient Cq in unpacked form. 

(4) The coefficient list requires 6n + 2 locations of normally relocatable memory. 

- ROUTINE: RATN1 

Supporting Subroutines : ; A TAN. , NSP, FDV1, SP, FRLD1, FSB1 

Subroutine Size: 1 page zero location and 35g locations of normally relocatable 
memory. 

Entry: RATN1 

Function: Calculates the arctangent of the quotient of two single precision real 
arguments on the number stack. 

Calling Sequence : 

(The argument divisor, OP1, is at the top of the number stack. The 
argument dividend, OP2, is at the frame following OP1 on the number 
stack. ) 

RATN1 

(Argument OP1 is removed from the number stack and the arctangent 
ofOP2/OPl replaces the input argument OP2 on the number stack. ) 



Notes: 



(1) Accumulators and carry are not restored on exit. 

(2) RATN1 must be referenced by an . EXTN statement. 



ROUTINE: SIGN 



Supporting Subroutines : FRET, FSAV; FFLD1, FFST1, NSP, . FARG 

Subroutine Size : 1 page zero location and 33 g locations of normally relocatable 
memory. 
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ROUTINE: SIGN (Continued) 
Entry: SI, N, SIGN 



Function: Transfers the sign of one single precision real number to another 
single precision real number. 

Calling Sequence : 

JSR @SI.N 

FORTRAN ADDRESS of Rl 

FORTRAN ADDRESS of R2 

(The sign of R2 is transferred to Rl which is then stored on the 
number stack. ) 

OR 

FCALL 

SIGN 

Integer 3 

FORTRAN ADDRESS of Result 

FORTRAN ADDRESS of Rl 

FORTRAN ADDRESS of R2 

(The sign of R2 is transferred to Rl which is then stored at the 
FORTRAN ADDRESS of the result. ) 



Notes : 



(1) Accumulators and carry are restored on exit. 

(2) No error messages are generated. 

(3) SI.N must be referenced by an . EXTD statement and SIGN by an . EXTN 
statement. 



-- ROUTINE: SINH 



Supporting Subroutines : FRET, FSAV; NSP, EXP, EXPC, . FARG, FDV1, 
FRLD1, FLIP1, FCLT1, FML1, FSB1, FFLD1 

Subroutine Size : 2 page zero locations and 66g locations of normally relocatable 
memory. 

Entry: .SHIN 

Function: Computes the hyperbolic sine of a single precision real number. 

Calling Sequence : 

(Input argument is on top of number stack. ) 

JSR (S.SHIN 

(Result is placed on the number stack. ) 
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ROUTINE : SINH (Continued) 

Entry: SI.H 

Function: Computes the hyperbolic sine of a single precision real number. 

Calling Sequence : 

r SF„ @si.H 

FORTRAN ADDRESS of argument 

(Result is placed on the number stack. ) 



(1) Accumulators and carry are restored on exit. 

(2) . SHIN and SI. H have FCALL entry points SHIN and SNH. 
SHIN and SNH must be referenced by . EXTN statements; 

. SHIN and SI. H must be referenced by . EXTD statements. 

(3) No error messages are generated. 



ROUTINE: SQRT 



Supporting Subroutines: FRET, FSAV; NSP, .RTER, FRLD1, FDV1, FLIP1, 
FAD1 

Subroutine Size: 1 page zero location and 142 g locations of normally relocatable 
memory. 

Entry: SQRT . 

Function: Computes the single precision real square root of a non-negative single 
precision real argument x. 

Calling Sequence: 

(Input argument x on top of number stack. ) 

SQRT. 

(Output result replaces x on top of number stack. ) 

Notes: 

(1) Accumulators and carry are restored on exit. 

(2) Both SQRT. and the FCALL entry point SQR must be referenced by . EXTN 
statements. 

(3) Typical execution times are 13 ms for the NOVA with software multiply /divide 
and 1. 7 ms for the SUPERNOVA with hardware fixed point multiply /divide. 

(4) If the input argument is negative, an error message is output and the square 
root of the absolute value of the argument is calculated. 
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--- ROUTINE; TAN 

Supporting Subroutines: FRET, FSAV; NSP, FNFG1, FRLD1, FML1, FBRK1, 
FSB1, FLIP1, FPLY1, FD'-'l 

Subroutine Size: 1 page zero location and 116 8 locanons of normally relocatable 
memory. 

Entry: TAN. 

Function: Computes the single precision real tangent of a single precision real 
argument x. 

Calling Sequence : 

(Input argument x is on top of the number stack. ) 

TAN. 

(Output result replaces x on top of number stack, ) 

Notes : 

(1) Accumulators and carry are restored on exit. 

(2) Both TAN. and the FCALL entry point TN must be referenced by . EXTN 
statments. 

(3) Typical execution times are 19 ms for the NOVA with software multiply /divide 
and 2. 4 ms for the SUPERNOVA with hardware fixed point multiply /divide. 

--- ROUTINE : TANH 

Supporting S ubroutines : FRET, FSAV; . FARG, NSP, FRLD1, FRST1, FSB1, 

FAD1, FML1, FDV1, FFLD1, FCLE1, FLIP1, EXP., 
FNEG1 

Subroutine Size: 1 page zero location and 126 8 locations of normally relocatable 
memory. 

Entry: TA.H 

Function: Calculates the hyperbolic tangent of a single precision real number. 

Calling Sequence: 

JSR ©TA.H 

FORTRAN ADDRESS of the argument 

(The result is loaded on top of the number stack . ) 
Notes : 

(1) Accumulators and carry are restored on exit. 

(2) TA. H must be referenced by an . EXTD statement. The FCALL entry point 
TNH must be referenced by an . EXTN statement. 

(3) Error messages may be generated by the supporting routines. 
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ROUTINE: ARCTA 



Supporting Subroutines : FRET, FSAV; FML2, FDV2, FSB2, FFLD2, FPLY2 
FAD2, FCLT2, FRLD2, FLIP2, NSP, . FARG 

Subroutine Size: 2 page zero locations and 301 o locations of normally relocatable 
memory. 

Fntrv; DATA. 



Function: Calculates the arctangent of a double precision real number. 

Calling Sequence : 

(The single argument whose arctangent is to be calculated is loaded 
on the number stack. ) 

DATA. 

(The result replaces the input argument on the number stack. ) 

Entry: DA.N2 

Function: Calculates the arctangent of the quotient of two double precision 
real numbers. 

Calling Sequence : 

JSR SDA.N2 

FORTRAN ADDRESS of argument dividend 

FORTRAN ADDRESS of argument divisor 

y iiiC al ^La-n^v-iiL ui liic mJULX*-iiL wi Lilt iiijJUl aiguiiitiiLn 10 luauuu un 

the number stack. ) 



Notes: 



(1) Accumulators and carry are restored on exit. 

(2) XA.N2 and DA. A2 are equivalent to DA.N2 and all must be referenced by 

. EXTD statements. XAAN. is equivalent to DATA, and both must be referenced 
by . EXTN statements. 

(3) The sign of the result is the same as the sign of the single input argument or 
argument quotient. 

(4) Typical execution times for DA.N2 are 120 ms for the NOVA with software 
multiply/divide and 14 ms for the SUPERNOVA with hardware fixed point multiply/ 
divide. Timings for DATA, are 74 ms for the NOVA with software multiply /divide 
and 15 ms for the SUPERNOVA with hardware fixed point multiply /divide. 
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-- ROUTINE: COSIX 



Supporting Subroutines: FRET, FSAV; NSP, FPLY2, FHRK2, FML2, FDV2, 
FLIP2, FSB2, FRLD2 

Subroutine Size: 2 page zero locations and 161fj locations of normally relocatable 
memory. 



Entry: DCQS. 

Function : Calculates the cosine of a double precision real number. 
Calling Sequence: 

(The input argument is loaded on the number stack. ) 
DCOS. 

(The result replaces the input argument on the number stack. ) 
Entry: DSIN 

Function: Calculates the sine of a double precision real number. 
Calling Sequence : 

(The input argument is loaded on the number stack. ) 

DSIN. 

(The result replaces the input argument on the number stack. ) 



Notes : 



(1) Accumulators and carry are restored on exit. 

(2) XCS. is equivalent to DCOS. and XSN. is equivalent to DSIN. All must be 
referenced by . EXTN statements. 

(3) Typical execution times for DCOS. are 86 ms for the NOVA with software multiply 
divide and 12 ms for the SUPERNOVA with hardware fixed point multiply /divide. 
Typical execution times for DSIN. are 90 ms for the NOVA with software multiply/ 
divide and 11 ms for the SUPERNOVA with hardware fixed point multiply /divide. 
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ROUTINE: DHXPC 



Supporting Subroutines : ; FRLD2, FML2, FLIP2, FPLY2, FSB2, FDV2, NSP, 

SP, . NR1 

Subroutine Size : 1 page zero location and 137- locations of normally relocatable 
memory. 

Entry: DEXPC 

Function: Calculates the value e x -l for x a double precision real number. 

(Jailing Sequence : 

(The input argument is loaded on the number stack. ) 
JSR ©DEXPC 

(The result replaces the input argument on the number stack. ) 



Notes: 



(1) Accumulators and carry are not restored on exit. 

(2) DEXPC must be referenced by an . EXTD statement. 

(3) Error messages may be generated by the supporting routines. 

(4) The range of value for input arguments is restricted such that OS log e * x < 1/2. 

ROUTINE: DEXPO 

Supporting Subroutines : FRET, FSAV; NSP, .RTER, FSGN2, FRLD2, FSB2, 
FML2, FDV2, FLIP2, FBRK2, FPLY2, FRST2, FAD2 

Subroutine Size: 1 page zero location and 232 g locations of normally relocatable 
memory. 

Entry: XEP. 

Function: Calculates the value e x for x any double precision real number. 

Calling Sequence: 

(The input argument is loaded on the number stack. ) 

XEP. 

(The result replaces the input argument on the number stack. ) 



10-5 



Licensed Material - Property of Data General Corporation 



DPFL 



ROUTINE: DEXPO (Continued) 



Notes : 



(1) Accumulators and carry are restored on exit. 

(2) DEXP. is equivalent to XEP. and both must be referenced by . EXTN statements. 
The FCALL entry point DEXP must also be referenced by an . EXTN statement. 

(3) An error message is issued upon overflow or underflow and either the largest 
possible value or zero is returned as a result. 

(4) Typical execution times are 76 ms for the NOVA with software multiply /divide 
and 11 ms for the SUPERNOVA with hardware fixed point multiply /divide. 



ROUTINE: DFL 



Supporting Subroutines : DVD, MPY; SP, FLSP, .RTFS, .NDSP, .SVO 

Subroutine Size : 17s page zero locations and 1233 8 locations of normally relocatable 
memory. 
Entry: FAD2 

Function: Adds two double precision real numbers. 



Calling Sequence : 

FAD2 

(The sum of the top, OP1, and next -to-top, OP2, numbers on the 
number stack is computed; OP1 is popped and the sum replaces OP2. ) 

Entry: FSB2 

Function : Subtracts two double precision real numbers. 

Calling Sequence : 

FSB2 

(The top number on the stack, OP1, is subtracted from the next-to-top 
number, OP2; OP1 is popped, and the value OP2-OP1 replaces OP2.) 



10-6 



Licensed Material - Property c. Data General Corporation 



DPFL 



ROUTINE: DEL (Continued) 

Entry: FCLT2, FCLE2, FCEQ2, FCGE2, FCGT2 

Function: Compares the size and sign of two double precision real numbers, and 
sets the carry bit to a one if the specified condition is true. Conditions 
which may be examined are as follows: 

OP2 < OPi -- FCLT2 

OP2 < OPI" -- FCLE2 

OP2 = OPI -- FCEQ2 

OP2 > OPI -- FCGE2 

OP2 > OPI -- FCGT2 

where OPI is the top number on the number stack and OP2 is the next-to- 
top number on the stack. 

Calling Sequence : 

(The two numbers to be compared are loaded on the number stack. ) 

FCLT2 (or FCLE2, FCEQ2, etc. ) 

(Carry is set to a one if the comparison yields an affirmative result, 
otherwise carry is set to a zero. Both compared numbers are popped 
from the stack. ) 

Entry: FFLD2 

Function: Unpacks and loads a double precision real number onto the number stack. 

Calling Sequence: 

FFLD2 

FORTRAN ADDRESS of packed number 
Entry: FFST2 

Function: Packs and stores a single precision real number from the number stack 
into a FORTRAN ADDRESS. 

Calling Sequence : 

FFST2 

FORTRAN ADDRESS of destination 

(The number is popped, and the popped number is packed and stored 
at the specified FORTRAN ADDRESS, with rounding. ) 

Entry: FML2 

Function: Multiplies two double precision real numbers. 

Calling Sequence: 

FML2 

(The product of the top, OPI, and next-to-top, OP2, numbers on the 
number stack is computed; OPI is popped, and the product replaces OP2. ) 
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ROUTINE: Dl-L (Continued) 



Entry: 1-DV2 

Function: Divides two double precision real numbers. 

Calling Sequence : 

FDV2 

(The quotient of the next-to-top, OP2, and top, OP1, numbers on the 
number stack is computed; OP1 is popped! and OP2/OP1 replaces OP2 on 

the stack. ) 

Entry: FNEG2 

Function: Changes the sign of a double precision real number at the top of the 
number stack. 

Calling Sequence: 

FNEG2 

(The sign of the number on the top of the number stack is changed. ) 
Entry: FSGN2 

Function: Examines the sign of a double precision real number. 
Calling Sequence : 

(The number which is to be examined is at the top of the number stack. ) 

FSGN2 

Entry: FSGN2 (Continued) 

(ACO is returned with -1,0, or 1 corresponding to a negative, zero, or 
positive state of the examined number. The examined number is popped 
from the number stack. ) 

Entry: FXFL2 

Function: Converts a fixed point number to an unpacked double precision real, and 
loads it on the number stack. 



Calling Sequence: 



FXFL2 

FORTRAN ADDRESS of fixed point number I 

(1 is converted to a double precision floating point number which is 
loaded on the number stack. ) 
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ROUTINE: DFL (Continued) 



Entry: FLFX2 



Function: Pops a double precision real number from the number stack, converts it 
to fixed point format, and stores it at a specified FORTRAN ADDRESS. 

Calling Sequence : 

FLFX2 

FORTRAN ADDRESS to receive I 

(The top member from the number stack is converted to a fixed point 
number I, Lhe slack 
following the call. ) 



Notes: 



(1) Accumulators and carry are not restored on exit. 

(2) FFLD2, FFST2, FAD2, FSB2, FCLT2, FCLE2, FCEQ2, FCGE2, FCGT2, 
FML2, FDV2, FNEG2, FXFL2, and FLFX2 must all be referenced by . EXTN 
statements. 

(3) JSR @XD. E is equivalent to FFLD2 and XD. E must be referenced by an . EXTD 
statement. JSR <§DF. OT is equivalent to FLFX2 and DF. OT must be referenced by 

an . EXTD statement. 

(4) Error messages are generated on stack overflow or underflow. Error messages 
are also generated whenever a truncation of significant exponent digits occurs as 
the result of packing an unpacked number. An error message will also be issued 
if the input argument to FLFX2 falls outside the range [-2l5+i ( +215-1] ( and a 
signed maximum integer is returned as a result. If the input argument for FLFX2 
is in the range < -1, +1 >, zero is returned as a result. 

(5) Numbers to be placed on the number stack are normalized after arithmetic 
operations. 



ROUTINE: DINT 



Supporting Subroutines : ;.FRGO, FFLD2, NSP, SP 

Subroutine Size: 1 page zero location and 105g of normally relocatable memory. 

Entry: DI.T 

Function: Truncates a double precision real number. 

Calling Sequence: 

JSR @CI.T 

FORTRAN ADDRESS of number to be truncated 

(The truncated real number is placed on the number stack. ) 
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ROUTINE: DINT (Continued) 



Notes: 



(1) Accumulators and carry are not restored on EXIT. 

(2) XDIT is equivalent to DI.T and both must be referenced by .EXTD 
statements. 

(3) no error messages are generated. 



--ROUTINE: DLOG 



Supporting Subroutines : FRET, FSAV; . RTER, NSP, . FARG, FFLD2, FML2, 
FCLT2, FLIP2, FSB2, FDV2, FAD2, FRLD2, FPLY2, 
FXFL2 

Subroutine Size : 2 page zero locations and 2758 locations of normally relocatable 
memory. 

Entry: DLOG. 

Function : Calculates the natural logarithm of a double precision real number. 

Calling Sequence : 

(The argument whose natural logarithm is to be calculated is loaded 
on the number stack. ) 

DLOG. 

(The result is loaded on the top of the number stack. ) 

Entry: PL. GO, XA.GO 

Function: Calculates the logarithm to the base 10 of a double precision real number. 
Calling Sequence : 

FORTRAN ADDRESS of argument whose base 10 logarithm is to be 
calculated. 

(The result is loaded on the number stack. ) 
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ROUTINE: DLOG (Continued) 



Notes: 



(2) DLOG. and XAOG. are equivalent and must be referenced by . EXTN statements. 
DL.GO and XA. GO are equivalent and must be referenced by . EXTD statements. 

(3) If the input argument is negative an error message is issued and the logarithm of 
the absolute value is calculated. On receipt of a zero argument the largest 
possible negative number will be returned. 

(4) Typical execution tin.js for the natural logarithm function are 99 ms for the 
NOVA with software multiply /divide and 13 ms tor the SUPERNOVA with hardware 
fixed point multiply /divide. Typical timings for the base 10 logarithm function 

are 103 ms for the NOVA with software multiply /divide and 14 ms for the SUPERNOVA 
with hardware fixed point multiply /divide. 



- ROUTINE: DMNMX 

Supporting Subroutines : FSAV, FRET; . FARG, FFST2, FFLD2, FCLT2 

Subroutine Size: 2 page zero locations and 12s locations of normally relocatable 
memory. 

- flntry: DM. XI, DMAX1 
/ 
Function: Selects the largest member from a set of double precision real numbers, 
expressing the result as a double precision real number. 

Calling Sequence : 

JSR @DM.X1 

N (number of members in the set) 
FORTRAN ADDRESS of DR1 
FORTRAN ADDRESS of DR2 

FORTRAN ADDRESS of DRN 

(The largest member of the set is placed on the number stack. ) 

OR 
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ROUTINE: DMNMX (Continued) 



Calling Sequence : (Continued) 

FCALL 

DMAX1 

N+l (N is the number of members in the set) 

FORTRAN ADDRESS of result 

FORTRAN ADDRESS of DR1 

FORTRAN ADDRESS of DR2 

FORTRAN ADDRESS of DRN 

Entry: DM.N1, DMIN1 

Function: Selects the smallest member from a set of double precision real numbers, 
expressing the result as a double precision real number. 



Calling Sequence : 



JSR @DM.N1 

N (number of members in the set) 
FORTRAN ADDRESS of DR1 
FORTRAN ADDRESS of DR2 

FORTRAN ADDRESS of DRN 

(The smallest member of the set is placed on the number stack. ) 

O R 

FCALL 

DMIN1 

N+l (N is the number of members in the set) 

FORTRAN ADDRESS of result 

FORTRAN ADDRESS of DR1 

FORTRAN ADDRESS of DR2 

FORTRAN ADDRESS of DRN 



Notes : 



(1) Accumulators and carry are restored on exit. 

(2) No error messages are generated. 

(3) XA.X1 is equivalent to DM. XI, and XA.N1 is equivalent to DM. NT. All must 
be referenced by . EXTD statements. 

(4) DMAX1 and DM INI must be referenced by . EXTN statments. 
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ROUTINE: DMOD 



Supporting Subroutines : ; FFLD2, FDV2, FML2, . FRGO, NSP, SP, FFST2 

Subroutine Size: 1 "a"e zero location and 127" locations of normally relocatable 
memory. 

Entry: DM.D 

Function: Fetches the remainder of a double precision real quotient when DR1 
is divided by DR2. 

Calling Sequence: 

JSR @DM.D 

FORTRAN ADDRESS of DR1 

FORTRAN ADDRESS of DR2 

(Result is placed on the top of the number stack. ) 



Notes: 



(1) XA. D is equivalent to DM. D and both must be referenced by . EXTD statements. 

(2) If the quotient DR1/DR2 causes overflow or underflow, an error message will 
be output by FDV2 and no meaningful result will be returned. 



ROUTINE: DPOLY 



Supporting Subroutines: ; NSP, SP, FRLD2, FML2, FAD2, FRST2 

Subroutine Size: 1 page zero location and 33 8 locations of normally relocatable 
memory. 

Entry: FPLY2 

Function: Computes a polynomial P(x) for x a double precision real number. 

Calling Sequence : 

(The input argument x is at the top of the number stack. ACO contains 
the start address of LIST +1. See Notes. ) 

FPLY2 

(The output result replaces the input argument on the number stack. ) 
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ROUTINE: DPOLY: (Continued) 



Notes: 



(1) Accumulators and carry are not restored on exit. 

(2) FPLY2 must be referenced by an . EXTN statement. 

(3) P(x) is of the form P(x)=C + Cjx + C 2 x 2 +. . . + C n x n where C . . . C n are double 
precision real coefficients and all powers of x are positive integers. 

The order of the coefficients list is: 

LIST: Single precision fixed point order of the polynomial 
LIST +1: DPFL real coefficient C n in unpacked form 

LIST +7: DPFL real coefficient C n -i in unpacked form 

LIST+l+6n: DPFL real coefficient C in unpacked form. 

(4) The coefficient list requires 6n+2 locations of normally relocatable memory. 



-ROUTINE: DPWER 



Supporting Subroutines: FLIP2, NSP, .RTES, SP, FRLD2, FML2, DLOG. , DEXP. 

Subroutine Size : 1 page zero location and 55g locations of normally relocatable 
memory. 

Entry: FPWR2 

Function: Raises a non-negative double precision real number to a double precision 
real power. 

Calling Sequence : 

(The real power is loaded onto the number stack, and the real base is 
placed just below the power on the stack. ) 

FPWR2 

(The real power is loaded onto the number stack, and the result replaces 
the base at the top of the stack. ) 



Notes : 



(1) Accumulators and carry are not restored on exit. 

(2) FPWR2 must be referenced by an . EXTN statement. 

(3) This routine generates an error message and returns the base as the result 
upon receipt of a negative base argument; the supporting routines generate 
error messages if underflow or overflow occurs. 

(4) Typical execution times are 180 ms for the NOVA with software fixed point 
multiply /divide and 24 ms for the SUPERNOVA with hardware fixed point 
multiply /divide. 
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--- ROUTINE: DSIGN 



Supporting Subroutines : FRET, FSAV; FFLD2, NSP, . FARG, FFST2 

Subroutine Size: 1 page zero location and 33s locations of normally relocatable 
memory. 

Entry: DS.GN, DSIGN 

Function: Transfers the sion of one double precision real number to another double 
precision real number. 

Calling Sequence: 

JSR@DS.GN 

FORTRAN ADDRESS of DR1 

FORTRAN ADDRESS of DR2 

(The sign of DR2 is transferred to DR1, which is then stored on the 
number stack. ) 

OR 

FCALL 

DSIGN 

Integer 3 

FORTRAN ADDRESS of result 

FORTRAN ADDRESS of DR1 

FORTRAN ADDRESS of DR2 

(The sign of DR2 is transferred to DR1, which is then stored at the 
FORTRAN ADDRESS of the result. ) 



Notes : 



(1) Accumulators and carry are restored on exit. 

(2) No error messages are generated. 

(3) XS. N is equivalent to DS.GN and both must be referenced by . EXTD statements. 

(4) DSIGN must be referenced by an . EXTN statement. 
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■- ROUTINE: DSINH 

Supporting Su broutines : FRET, FSAV; NSP, DEXP . DEXPC, FDV2, FRLD2, 
FLIP2, FCLT2, FML2, FSB2, . FARG, FFLD2 

Subroutine Size: 2 page zero locations and 72 8 locations of normally relocatable 
memory. 

Entry: .DSHIN 

Function: Calculates the hyperbolic sine of a double precision real number. 
Calling Sequence : 

(The argument is placed on the number stack. ) 

JSR@. DSHIN 

(The result replaces the argument on the number stack. ) 

Entry: DS.NH 

Function: Calculates the hyperbolic sine of a double precision real number. 

Calling Sequence : 

JSR @DS. NH 

FORTRAN ADDRESS of argument 

(The result is placed on the number stack. ) 

Notes : 

(1) Accumulators and carry are restored on exit. 

(2) XS. H is equivalent to . DSHIN. DS. NH, . DSHIN, and XS. H must all be 
referenced by . EXTD statements. .DSHIN and DS.NH have FCALL entry 
points DSINH and DHNH. DSINH and DSNH must be referenced by . EXTN 
statements. 

--- ROUTINE: DSQRT 

Su pporting Subroutines : FRET, FSAV; FRLD2, FML2, FAD2, FLIP2, 
FPLY2, FDV2, NSP, .RTER 

Subroutine Size: 1 page zero location and 127 8 locations of normally relocatable 
memory. 

Entry: DSQR . 

Function: Calculates the square root of a double precision real number. 

Calling Sequence : 

(The input argument is loaded on the number stack. ) 

DSQR. 

(The result replaces the input argument on the number stack. ) 
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ROUTINE: DSQRT (Continued) 
Notes: 



DPFL 



(1) Accumulators and carry are restored on exit. 

(2) XSRT. is equivalent to DSQR. and both must be referenced by . EXTN 
statements. The FCALL entry point DSQR must also be referenced by an .EXTN 
statement. 

(3) An error message is output on receipt of a negative argument. In this case the 
square root of the absolute value of the argument is calculated. 

t a\ T* 7r, icai execution times are 82 ms for the NOVA with software mijltir»lv /divide 
and 8. 1 ms for the SUPERNOVA with hardware fixed point multiply /divide. 



ROUTINE : DTANH 

Supporting Subroutines : FRET, FSAV; FAD2, FML2, FDV2, FFLD2, DEXP. , 
"" "" FSB2, FLIP2, FCLT2, FRST2, FRLD2 

Subroutine Size: 1 page zero location and 136s locations of normally relocatable 
memory. 

Entry: DT. NH 

Function: Calculates the hyperbolic tangent of a double precision real number. 

Calling Sequence: 

JSR §DT. NH 

r wK i KniN s\ljljLkl.0*j *j± argument. 

(The result is loaded onto the number stack. ) 
Notes: 

(1) Accumulators and carry are restored on exit. 

(2) XT. H is equivalent to DT. NH and both must be referenced by . EXTD statements. 

(3) Error messages may be generated by the supporting routines. 

(4) The FCALL entry point must be referenced by an . EXTN statement. 

(5) Typical execution times are 185 ms for the NOVA with software multiply /divide 
and 21. 5 ms for the SUPERNOVA with hardware fixed point multiply /divide. 
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ROUTINE : RATN2 



SupportinR Subroutines: ; DATA., NSP, FDV2, SP, FRLD2, FSB2 

Subroutine Size : 1 page zero location and 37 8 locations of normally relocatable memory. 

Entry: RATN2 

Function: Calculates the arctangent of the quotient of two double precision real 
arguments on the number stack. 

Calling Sequence: 

(The argument divisor, OP1, is at the top of the number stack. The 
argument dividend, OP2, is at the frame following OP1 on the number 
stack. ) 

RATN2 

(Argument OP1 is removed from the number stack and the arctangent 
of OP2/OP1 replaces the input argument OP2 on the number stack. ) 



Notes: 



(1) Accumulators and carry are not restored on exit. 

(2) RATN2 must be referenced by an . EXTN statement. 



--- ROUTINE: TANGE 



Supporting Subroutines : FRET, FSAV; FML2, FDV2, FRLD2, FSB2, FBRK2, 
FPLY2, FLIP2, NSP 

Subroutine Size: 1 page zero location and 165g locations of normally relocatable 
memory. 

Entry: DTAN . 

Function: Calculates the tangent of a double precision real number. 

Calling Sequence : 

(The input argument is loaded on the number stack. ) 

DTAN. 

(The result replaces the input argument on the number stack. ) 

Notes : 

(1) Accumulators and carry are restored on exit. 

(2) XTN. is equivalent to DTAN. and both must be referenced by . EXTN statements. 
The FCALL entry DTN must also be referenced by an . EXTN statement. 

(3) Typical execution times are 84 ms for the NOVA with software multiply /divide 
and 9. 3 ms for the SUPERNOVA with hardware fixed point multiply /divide. 
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ROUTINE: CABS 



Supporting Subroutines : ; . FRGO, FFLD1, RCABS, SP 

Subroutine Size: 1 page zero location and 17g locations of normally relocatable 
memory. 

Entry: CA.S 

Function: Obtains the absolute value of a single precision complex number. 

Calling Sequence : 

Ton r?i r~< s o 

FORTRAN ADDRESS of argument 

(The absolute value of the argument is loaded onto the number stack. ) 
Notes : 

(1) Accumulators and carry are not restored on exit. 

(2) CA. S must be referenced by an . EXTD statement. 

(3) Stack overflow messages may be issued by the supporting routines. 

(4) The result obtained by this routine is a real number, thus occupying only one 
6-word frame on the number stack. 



ROUTINE : CADD 



Supporting Subroutines : ; FADl, FKS'1'1, KKLDi, . NK2, SP, NSP 

Subroutine Size: 2 page zero locations and 22 g locations of normally relocatable 
memory. 

Entry: CADI 

Function: Adds the topmost two single precision complex numbers on the number 
stack. 

Calling Sequence: 

(The two arguments are loaded on the number stack. ) 

CADI 

(The top argument is removed from the stack, and the sum replaces the 
second argument. ) 

Entry: CSB1 

Function: Subtracts the top single precision complex number on the number stack 
from the next -to -top single precision complex number on the stack. 
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ROUTINE: CADD (Continued) 

Entry: CBS1 (Continued) 
Calling Sequence : 

(The Wo arguments are loaded on the number stack. ) 

CSB1 

(The top argument is removed from the stack and the difference replaces 
the second argument. ) 



Notes : 



(1) Accumulators and carry are not restored on exit. 

(2) CADI and CSB1 must be referenced by . EXTN statements. 

(3) Error messages are generated by supporting routines if overflow or underflow 



occurs. 



ROUTINE: CCEQ 

„ rcn , ™, MRi NR3, FRST1, FRLD1, NSP, 
Sup porting Subroutines : ; FCEQ1, .NK2, . wki, . imw, 

" ~~ SP. 

Subroutine Size : 1 page zero location and 21 8 locations of normally relocatable 
memory. 

Entry: CCEQ1 

Function: Compares two single precision complex numbers for equivalence. 

Calling Sequence: 

(The two complex numbers to be compared are the topmost numbers 
on the number stack. ) 

CCEQ1 

(Carry is set to one if the numbers are equal; otherwise it is set to 
zero. The two complex numbers are removed from the number stack. ) 



Notes: 



(1) Accumulators and carry are not restored on exit. 

(2) CCEQ1 must be referenced by an . EXTN statement. 
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ROUTINE: CCOS 



o t. -■ mc cim QHTN FXP NR2. FAD1, FML1, FRST1, 

Supporting Subroutines: ; COS. , SIN., .shun, eai-. , . n>xv , 

— ^ FRLD1, FLIP1, SP, NSP 

Subroutine Size: 1 page zero location and 43 8 locations of normally relocatable 
memory. 



Entry: CCOS . 

Function: Computes the cosine of a single precision complex number. 

Calling Sequence : 

(A complex number is loaded on the top of the number stack. ) 

CCOS. 

(The cosine of the argument is expressed as a single precision complex 
ber and replaces the input argument on the number stack. ) 



num 



Notes : 



(1) Accumulators and carry are not restored on exit. 

(2) CCOS. must be referenced by an . EXTN statement. 

(3) Error messages are generated by EXP. or FML1 on underflow or overflow. 

(4) Typical execution times are 111 ms for the NOVA with software multiply /divide 

,,.,._ r_,_ ^_ cirocnwran „rith hnrHware fixed Doint multiply /divide, 
ana 1/ ins iui itc jbicmiu.- ..**... — . 



ROUTINE : CDIV 



■ c. u *• ~„ ■ PRTm FPTF1 FDV1. NR2, CML1, FLIP1, FML1, 
Supporting Subro utines : ; FKLDi, f^uii, ruvi, ,™ . > 

— — E .NR3, FAD1, FRST1, .NR1, SP, NSP 

Subroutine Size : 1 page zero location and 75 8 locations of normally relocatable 
memory. 

Entry: CDV1 

Function: Divides one single precision complex number by another. 

Calling Sequence : 

(The argument divisor is placed on the top of the number stack, and 
the dividend is immediately below the divisor. ) 

CDV1 

(The divisor is removed from the number stack and the quotient replaces 
the dividend on the number stack. ) 
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ROUTINE: CDIV (Continued) 



Notes: 



(1) Accumulators and carry are not restored on exit. 

(2) CDV1 must be referenced by an .EXTN statement. 

(3) Error messages are generated by supporting routines if overflow or underflow occurs. 



ROUTINE : CEXPO 



Supporting Subroutines: ; EXP., SIN., .NR2, FLIP1, FRLD1, FRST1, FML1, 

SP, NSP 

Subroutine Size: 1 page zero location and 24g locations of normally relocatable 
memory. 

Entry: CEXP . 

Function: Computes the value of e for C any single precision complex number. 

Calling Sequence: 

(The complex argument is loaded onto the number stack. ) 

CEXP. 

(The complex result replaces the argument on the number stack. ) 

Notes : 

(1) Accumulators and carry are not restored on exit. 

(2) CEXP. must be referenced by an . EXTN statement. 

(3) Error messages are generated on underflow or overflow. 

(4) Typical execution times are 47 ms for the NOVA with software multiply /divide and 
7. 8 ms for the SUPERNOVA with hardware fixed point multiply /divide. 
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ROUTINE: CLIP 



Supporting Subroutines : ; .NR3, SP, NSP, . NR1, .NR2, .FLIP 

Subroutine Size: 1 page zero location and 15g locations of normally relocatable 
memory. 

Entry: CLIP1, CLIP2 

Function: Swaps positions of the two topmost complex numbers on the number 
stack (whether single precision, double precision, or both ). 

Calling Sequence: 

( Two complex numbers are on top of the number stack. ) 

CLIP1 (or CLIP2) 

(The positions of the two complex numbers are swapped. ) 

Notes : 

(1) Accumulators and carry arc not restored on exit. 

(2) CLIP1 and CLIP2 are equivalent and both must be referenced by . EXTN 
statements. 



ROUTINE: CLOAD 

Supporting Subroutines : ; . FRGO, FFLD1, SP 

Subroutine Size: 1 page zero location and 16g locations of normally relocatable 
memory. 

Entry: CFLD1 

Function : Unpacks and loads a single precision complex number onto the number 
stack. 



Calling Sequence : 



CFLD1 

FORTRAN ADDRESS of the packed complex number. 

(The complex number is unpacked and loaded onto the number stack. ) 
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ROUTINE: CLOAD (Continued) 
Notes : 

(1) Accumulators and carry are not restored on exit. 

(2) CFLD1 must be referenced by an . EXTN statement. 

(3) An error message is issued by FFLD1 if number stack overflow occurs. 

(4) The FORTRAN ADDRESS of the packed complex number points to four 
sequential locations containing first the real portion (in single precision packed 
format) and then the imaginary portion (also in single precision packed format) 
of the argument. The argument is then unpacked and loaded onto the number 
stack in two sequential six word frames. The top frame contains the imaginary 
portion and the next-to-top frame contains the real portion of the argument. 

ROUTINE: CLOG 

Supporting Subroutines: ; .NR2, RATN1, FRLD1, FRST1, ALOG. , CLIP1, 
~~ RCABS, SP, NSP 

Subroutine Size: 1 page zero location and 2 Is locations of normally relocatable 
memory. 

Entry: CLOG. 

Function: Computes the natural logarithm of a single precision complex number. 

Calling Sequence : 

(The single precision argument is loaded on the number stack. ) 

CLOG. 

(The result replaces the input argument on the number stack. ) 



Notes: 



(1) Accumulators and carry are not restored on exit. 

(2) CLOG, must be referenced by an . EXTN statement. 

(3) Error messages are generated on underflow or overflow by the supporting 
routines. 

(4) Typical execution times are 60 ms for the NOVA with software multiply /divide 
and 8. 3 ms for the SUPERNOVA with hardware fixed point multiply /divide. 
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ROUTINE: CMUL 



Supporting Subroutines : ; FML1, FRLD1, FAD1, FRST1, FSB1, .NR1, .NR2, 

.NR3, SP, NSP 

Subroutine Size: 1 page zero location and 47g locations of normally relocatable 
memory. 

Entry: CML1 

Function : Multiplies a single precision complex number by another single precision 
complex number. 

Calling Sequence : 

(The two arguments are loaded on the number stack. ) 

CM LI 

(The topmost argument is removed, and the product replaces the 
second argument on the number stack. ) 

Notes : 

(1) Accumulators and carry are not restored on exit. 

(2) CML1 must be referenced by an .EXTN statement. 

(3) Error messages are issued by supporting routines if overflow or underflow 
occurs. 



ROUTINE: CNEG 



Supporting Subroutines: ; NSP 

Subroutine Size: 1 page zero location and 6 locations of normally relocatable 
memory. 

Entry: CNEG1, CNEG2 

Function: Negates the real and imaginary parts of any complex number. 
Calling Sequence: 

(The complex number to be negated is at the top of the number stack. ) 

CNEG1 (or CNEG2) 

(The negated complex number replaces the input argument on the 
number stack. ) 
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ROUTINE: CNEG (Continued) 



Notes: 



(1) Accumulators and carry are not restored on exit. 

(2) CNEG1 and CNEG2 must be referenced by . EXTN statements. 
' (3) No error messages are generated. 

ROUTINE: CONJG 

Supporting Subroutines : ; NSP 

Subroutine Size: 1 page zero location and 5 locations of normally relocatable 
memory. 

Entry: CONJ . 

Function: Produces the conjugate of any complex number. 

Calling Sequence : 

(The complex number whose conjugate is to be obtained is loaded 
onto the number stack. ) 

CONJ. 

(The sign of the imaginary portion of the input argument is complemented, 
replacing the original value. ) 

Notes : 



(1) Accumulators and carry are not restored and AC3 contains FSP on exit. 

(2) XCNJ. and DCON. are both equivalent to CONJ. and all must be referenced 
by .EXTN statements. 

(3) Either single or double precision complex numbers may be used as input 
arguments. 
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ROUTINE: CPWK 




Supporting Subroutines : CLOG., CEXP. , CML1, . NR3, .NR2, FRLD1, 
FRST1, SP. 

Subroutine Size: 1 page zero location and 20s locations of normally relocatable 
memory. 

Entry: CPWR1 

Function: Raises a single precision complex number to a single precision complex 
power. 

Calling- Seouence: 



(The complex power is on top of the stack, the complex base is 
immediately below it. ) 

CPWR1 

(The power and base are removed from the stack; the complex result 
is loaded on the stack.) 



Notes : 



(1) Accumulators and carry are not restored on exit. 

(2) CPWR1 must be referenced by an . EXTN statement. 

(3) Error messages can arise from the supporting routines. 



PnTTTTXTR. r'CTV 



Supporting Subroutines : ; SP, NSP, COS., SIN., .SHIN, EXP., .NR2, FAD1, 

FML1, FRST1, FRLD1, FLIP1 

Subroutine Size: 1 page zero location and 42g locations of normally relocatable 
memory. 

Entry: CSIN . 

Function: Computes the sine of a single precision complex number. 

Calling Sequence : 

(The complex argument is placed at the top of the number stack. ) 

CSIN. 

(The result replaces the input argument on the number stack.) 

Notes : 

(1) Accumulators and carry are not restored on exit. 

(2) CSIN. must be referenced by an . EXTN statement. 

(3) Error messages may be generated by the supporting routines. 
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ROUTINE: CSQRT 

Supporting Subroutines : ; .NR2, FRLD1, RATN1, FLIP1, CLIP1, FML1, SQRT. , 
RCABS, SIN., COS., FRST1, SP, NSP 

Subroutine Size: 1 page zero location and 47g locations of normally relocatable 
memory. 

Entry: CSQR. 

Function: Computes the square root of a single precision complex number. 

Calling Sequence: 

(The complex argument is placed at the top of the number stack. ) 

CSQR. 

(The result replaces the input argument on the number stack. ) 

Notes: 

(1) Accumulators and carry are not restored on exit. 

(2) CSQR. must be referenced by an . EXTN statement. 

(3) Typical execution times are 89 ms on the NOVA with software multiply /divide 
and 12 ms for the SUPERNOVA with hardware fixed point multiply/divide. 

ROUTINE: CSTOR 

Supporting Subroutines: ; . FRGO, FFST1, SP 

Subroutine Size: 1 page zero location and 17s locations of normally relocatable 
memory. 

Entry: CFST1 

Function: Packs and stores a single precision complex number located on the 
number stack. 

Calling Sequence : 

(The argument is at the top of the number stack. ) 

CFST1 

FORTRAN ADDRESS to receive the argument 

(The top two six word frames are removed from the stack. ) 
Notes : 

(1) Accumulators and carry are not restored on exit. 

(2) CFST1 must be referenced by an . EXTN statement. 

(3) No error messages are generated. 
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ROUTINE : CSTOR (Continued) 
Notes: (Continued) 




(4) The argument on the number stack occupies two sequential six -word frames , 
with the top frame containing the imaginary portion of the argument. After 
the argument has been packed and stored at the indicated FORTRAN ADDRESS, 
it occupies only four sequential locations with the first pair of words containing 



ROUTINE: RCABS 



aupporung jujjiuuiiucs: ; or, inot, .iniu, . imi, uv^j.\.x, i^u ip ^ in^^, *. ^ » ^ 

FAD1, FRLD1, FCLE1 

Subroutine Size: 1 page zero location and 42g locations of normally relocatable 
memory. 

Entry: RCABS 

Function: Obtains the absolute value of a single precision complex number located 
on the number stack. 

Calling Sequence: 

(The complex argument is loaded on the number stack. ) 

JSR § RCABS 

(The complex argument is removed from the number stack, and the absolute 
value of the argument is loaded there. ) 

Notes : 

(1) Accumulators and carry are not restored on exit. 

(2) RCABS must be referenced by an . EXTD statement. 

(3) Error messages are 'generated by supporting routines. 



ROUTINE: REAL 



Supporting Subroutines: ; . FRGO, FFLD1, SP 

Subroutine Size: 2 page zero locations and 22 g locations of normally relocatable 
memory. 

Entry: RE.L 

Function: Fetches the real part of a single precision complex number. 

Calling Sequence : 

JSRtgRE.L 

FORTRAN ADDRESS of complex number 

(The real portion of the complex number is loaded onto the number stack. ) 
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ROUTINE: REAL (Continued) 
Entry: AI. AG 

Function: Fetches the imaginary part of a single precision complex number. 
Calling Sequence : 

JSR@AI.AG 

FORTRAN ADDRESS of complex number 

(The imaginary portion of the complex number is loaded onto the 
number stack. ) 



Notes : 



(1) Accumulators and carry are not restored on exit. 

(2) RE. L and AI. AG must be referenced by . EXTD statements. 

(3) No error messages are generated. 
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DOUBLE PRECISION COMPLEX ROUTINES 



DCABS 12-3 

DCADD 12-3 

DCCEQ 12-4 

DCCOS 12-5 

DCDIV 12-5 

DCEXP 12-6 

DCLOD 12-6 

DCMUL 12-7 

DCPWR 12-7 

DCSIN 12-8 

DCSQR 12-9 

DCSTR 12-9 

DDCLO 12-10 

DREAL 12-10 

RDCAB 12-11 
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ROUTINE: DCABS 

Supporting Subroutines : ; . FRGO, FFLD2, RDCABS, SP 

Subroutine Size: 1 page zero location and 22g locations of normally relocatable 
memory. 

Entry: DC.BS 

Function: Obtains the absolute value of a double precision complex number. 

Calling Sequence : 

JSR @DC. BS 

FORTRAN ADDRESS of argument 

(The absolute value of the argument is loaded onto the number stack. ) 
Notes : 

(1) Accumulators and carry are not restored on exit. 

(2) XC.S is equivalent to DC.BS and both must be referenced by .EXTD statements. 

(3) Stack overflow messages may be issued by the supporting routines. 

(4) The result obtained by this routine is a real number and occupies only one 
6-word frame on the number stack. 

ROUTINE: DCADD 



Supporting Subroutines : ; FAD2, FRST2, FRLD2, .NR2, SP, NSP 

Subroutine Size : 2 page zero locations and 22g locations of normally relocatable 
memory. 

Entry: CAD2 

Function: Adds the topmost two double precision complex numbers on the number 
stack. 

Calling Sequence : 

(The two arguments are loaded on the number stack. ) 

CAD2 

(The top argument is removed from the stack, and the sum replaces 
the second argument. ) 
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ROUTINE: DCADD (Continued) 

Entry: CSB2 

Function: Subtracts the top double precision complex number on the stack from the 
next-to-top double precision complex number on the stack. 

Calling Sequence: 

(The two arguments are loaded on the number stack. ) 

CSB2 

(The top argument is removed from the stack, and the difference replaces 
the second argument. ) 

Notes : 

(1) Accumulators and carry are not restored on exit. 

(2) CAD2 and CSB2 must be referenced by . EXTN statements. 

(3) Error messages are generated by supporting routines if overflow or underflow occurs. 

ROUTINE: DCCEQ 

Supporting Subroutines: FCEQ2, .NR2, .NR1, .NR3, FRST2, FRLD2, SP, NSP 

Subroutine Size: 1 page zero location and 21 g locations of normally relocatable 
memory. 

Entry: CCEQ2 

Function: Compares two double precision complex numbers for equivalence. 

Calling Sequence : 

(The two complex numbers to be compared are the topmost numbers 
on the number stack. ) 

CCEQ2 

(Carry is set to one if the numbers are equal; otherwise it is set to 
zero. The two complex numbers are removed from the number stack. ) 



Notes : 



(1) Accumulators and carry are not restored on exit. 

(2) CCEQ2 must be referenced by an . EXTN statement. 
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ROUTINE: DCCOS 

Supporting Subroutines : ; SP, NSP, DCOS. , DSIN. , .DSHI, DEXP. , . NR2, FAD2, 

FML2, FRST2, FRLD2, FLIP2 

Subroutine Size: 1 page zero location and 45o locations of normally relocatable memory. 
Entry: DCCO. 

Function: Computes the cosine of a double precision complex number. 

Calling Sequence : 

(The double precision complex argument is placed on the top of the 
number stack. ) 

DCCO. 

(The result replaces the argument on the number stack. ) 

Notes : 

(1) Accumulators and carry are not restored on exit. 

(2) XCOS. is equivalent to DCCO. and both must be referenced by an . EXTN 
statement. 

(3) Error messages may be generated by the supporting subroutines. 

(4) Typical execution times are 580 ms for the NOVA with software multiply /divide 
and 89 ms for the SUPERNOVA with hardware fixed point multiply /divide. 



ROUTINE : DCDIV 



Supporting Subroutines : ; FRLD2, FCLE2, FDV2, CML2, FLIP2, FML2, . NR3, 

.NR2, .NR1, FAD2, FRST2, SP, NSP 

Subroutine Size: 1 page zero location and 101 g locations of normally relocatable 
memory. 

Entry: CDV2 

Function: Divides one double precision complex number by another. 

Calling Sequence : 

(The argument divisor is placed on the top of the number stack, and 
the dividend is immediately below the divisor. ) 

CDV2 

(The divisor is removed from the number stack and the quotient replaces 
the dividend on the number stack. ) 



Notes: 



(1) Accumulators and carry are not restored on exit. 

(2) CDV2 must be referenced by an . EXTN statement. 

(3) Error messages are generated by supporting routines if overflow or underflow occurs. 
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ROUTINE: DCEXP 

Supporting Subroutines : ; DEXP. , DCOS. , DSIN. , .NR2, FLIP2, FRLD2, 

FRST2, FML2, SP, NSP 

Subroutine Size: 1 page zero location and 24 g locations of normally relocatable 

memory. 

Entry: DCEX. 

Function : Computes the value of e c for C any double precision complex number. 
Calling Sequence: 

(The complex argument is loaded onto the number stack. ) 

DCEX. 

(The complex result replaces the argument on the number stack. ) 

Notes: 

(1) Accumulators and carry are not restored on exit. 

(2) XCXP. is equivalent to DCEX. and both must be referenced by . EXTN statements. 

(3) Error messages are generated on underflow or overflow. 

(4) Typical execution times are 295 ms for the NOVA with software multiply /divide 
and 36. 5 ms for the SUPERNOVA with hardware fixed point multiply/divide. 

ROUTINE: DCLOD 

Supporting Subroutines: ; . FRGO, FFLD2, SP 

Subroutine Size: 1 page zero location and 21 8 locations of normally relocatable 
memory. 

Entry: CFLD2 

Function: Unpacks and loads a double precision complex number onto the number 
stack. 

Calling Sequence : 

CFLD2 

FORTRAN ADDRESS of the packed complex number 

(The complex number is unpacked and loaded onto the number stack. ) 
Notes : 

(1) Accumulators and carry are not restored on exit. 

(2) CFLD2 must be referenced by an . EXTN statement. 

(3) An error message is issued by FFLD2 if number stack overflow occurs. 
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RO UTINE : DC LOD (Continued) 
Notes: (Continued) 



( 4) The FORTRAN ADDRESS of the packed complex number points to eight 
sequential locations containing first the real portion (in double precision 
packed format) and then the imaginary portion (also in double precision 
fjn/«Vo^ f rtT *mat^ of the ar rr ument. The ar rr ument is then un n acked and loaded 
onto the number stack in two sequential six-word frames. The top frame 
contains the imaginary portion and the nextrto-top frame contains the real 
portion of the argument. 



ROUTINE: DCMUL 

Supporting Subroutines : ; FML2, FRLD2, FAD2, FRST2, SP, NSP, .NR2, 

FSB2, .NR1, .NR3 

Subroutine Size: 1 page zero location and 4?s locations of normally relocatable 
memory. 

Entry: CML2 

Function: Multiplies one double precision complex number by another double 
precision complex number. 

Calling Sequence: 

(The two arguments are loaded on the number stack. ) 

CML2 

(The topmost argument is removed and the product replaces the 
second argument on the number stack. ) 

Notes : 

(1) Accumulators and carry are not restored on exit. 

(2) CML2 must be referenced by an . EXTN statement. 

(3) Error messages are generated by supporting routines if overflow or underflow 
occurs. 

ROUTINE: DCPWR 

Supporting Subroutines: ; DCLO. , DCEX. , CML2, .NR2, . NR3, FRLD2, SP, 

FRST2. 

Subroutine Size: 1 page zero location and 20g locations of normally relocatable 
memory. 

Entry: CPWR2 

Function: Raises a double precision complex number to a double precision complex 
power. 
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ROUTINE: DCFWR (Continued 

Entry: CPWR2 (Continued) 
Calling Sequence: 



(The complex power is on the top of the stack, the complex base is 
immediately below it. ) 

CPWR2 

(The power and base are removed from the stack; the complex result 
is loaded on the stack. ) 



Notes: 



(1) Accumulators and carry are not restored on exit. 

(2) CPWR2 must be referenced by an . EXTN statement. 

(3) Error messages can arise from the supporting routines. 



ROUTINE: DCSIN 



Supporting Subroutines: ; DCOS. , .DSHI, DSIN. , DEXP., .NR2, FAD2, 

FML2, FRST2, FRLD2, FLIP2, SP, NSP 

Subroutine Size: 1 page zero location and 44g locations of normally relocatable 
memory. 

Entry: DCSI. 

Function: Computes the sine of a double precision complex number. 

Calling Sequence: 

(The double precision complex argument is placed at the top of the 
number stack. ) 

DCSI. 

(The result replaces the argument on the number stack. ) 



Notes : 



(1) Accumulators and carry are not restored on exit. 

(2) XCIN. is equivalent to DCSI. and both must be referenced by . EXTN statements. 

(3) Error messages may be generated by the supporting routines. 

(4) Typical execution times are 585 ms for the NOVA with software multiply /divide 
and 90 ms for the SUPERNOVA with hardware fixed point multiply /divide. 
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ROUTINE: DCSQR 

Supporting Subroutines : ; SP, NSP, .NR2, FRLD2, RATN2, FLIP2, CLIP2, 
'' "~" FML2, DSQR. , RDCAB, DSIN. , DCOS. , FRST2 

Subroutine Size: 1 page zero location and 51g locations of normally relocatable 
memory. 

Function: Computes the square root of a double precision complex number. 
Calling Sequence : 

(The complex argument is placed at the top of the number stack. ) 

DCSQ. 

(The result replaces the input argument on the number stack. ) 
Notes : 

(1) Accumulators and carry are not restored on exit. 

(2) XCQR. is equivalent to DCSQ. and both must be referenced by . EXTN 
statements. 

(3) Typical execution times are 655 ms for the NOVA with software multiply /divide 
and 70.5 ms for the SUPERNOVA with hardware fixed point multiply /divide. 

ROUTINE: DCSTR 

Supporting Subroutines : ; . FRGO, FFST2, SP 

Subroutine Size: 1 page zero location and 20s locations of normally relocatable 
memory. 

Entry: CFST2 

Function: Packs and stores a double precision complex number located on the 
number stack. 

Calling Sequence: 

(The argument is at the top of the number stack. ) 

CFST2 

FORTRAN ADDRESS to receive the argument. 

(The top two six -word frames are removed from the stack. ) 

Notes : 

(1) Accumulators and carry are not restored on exit. 

(2) CFST2 must be referenced by an .EXTN statement. 

(3) No error messages are generated. 
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ROUTINE : DCSTR (Continued) 
Notes: (Continued) 



DPCX 



(4) The argument on the number stack occupies two sequential six-word frames, 
with the top frame containing the imaginary portion of the argument. After 
the argument has been packed and stored at the indicated FORTRAN ADDRESS 
it occupies eight sequential locations, with the first group of four words con- 
taining the real portion of the argument. 



ROUTINE: DDCLO 

Supporting Subroutines : ; .NR2, RATN2, FRLD2, FRST2, DLOG. , CLIF2, 

RDCABS, SP, NSP 

Subroutine Size: 1 page zero location and 21§ locations of normally relocatable 
memory. 

Entry: XCOG. 

Function: Computes the natural logarithm of a double precision complex number. 

Calling Sequence : 

(The double precision argument is loaded on the number stack. ) 

XCOG. 

(The result replaces the input argument on the number stack. ) 

Notes: 

(1) Accumulators and carry are not restored on exit. 

(2) DCLO. is equivalent to XCOG. and both must be referenced by . EXTN 
statments. 

(3) Error messages are generated on underflow or overflow by the supporting 
routines. 

(4) Typical execution times are 430 ms for the NOVA with software multiply /divide 
and 45. 5 ms for the SUPERNOVA with hardware fixed point multiply /divide. 

ROUTINE: DREAL 



Supporting Subroutines : . FRGO, FFLD2, SP 

Subroutine Size: 2 page zero locations and 24g locations of normally relocatable 
memory. 

Entry: DR.AL 

Function: Fetches the real part of a double precision complex number. 
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DPCX 



ROUTINE: DREAL (Continued) 

Entry: DR. AL (Continued) 

Calling Sequence : 

JSR@DR.AL 

FORTRAN ADDRESS of complex number 

(The real portion of the complex number is loaded on the number stack. ) 

Entry: DA.MG 

-l unction: a etcnes the imaginary pail of a double precision complex number. 



Calling Sequence : 



JSR@DA.MG 

FORTRAN ADDRESS of complex number 

(The imaginary portion of the complex number is loaded on the number 
stack. ) 



Notes : 



(1) Accumulators and carry are not restored on exit. 

(2) XR. L is equivalent to DR. AL, and XA. AG is equivalent to DA. MG. All must 
be referenced by . EXTD statements. 

(3) No error messages are generated. 

ROUTINE: RDCAB 

Supporting Subroutines : ; SP, NSP, . NR2, .NR1, DSQR, FLIP2, FML2, 

FDV2, FAD2, FRLD2, FCLE2 

Subroutine Size : 1 page zero location and 44 g locations of normally relocatable 
memory. 

Entry: RDCAB 

Function: Obtains the absolute value of a double precision complex number 
located on the number stack. 

Calling Sequence : 

(The complex argument is loaded onto the number stack. ) 

JSR ©RDCABS 

(The complex argument is removed from the number stack, and the 
absolute value of the argument is loaded there. ) 
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ROUTINE : RDCAB (Continued) 



DPCX 



Notes: 



(1) Accumulators and carry are not restored on exit. 

(2) RDCAB must be referenced by an . EXTD statement. 

(3) Error messages are generated by supporting routines. 

(4) The result obtained is a real number occupying only one 6 -word frame on the 

number stack. 
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MIXED MODE ROUTINES 
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DIPWR 13-9 
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IFK 13-11 
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LDREG 13-12 

MNMX1 13-12 

RIPWR 13-12 

STREG 13-14 
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Mixed Mode 



-- ROUTINE: AMNXO 

Supporting Subroutines : FRET, FSAV; . FARG, FXFL1, FFST1 

Subroutine Size: 2 page zero locations and 76g locations of normally relocatable 
memory. 

Entry: AM. NO. AMINO 

Function: Selects the smallest member from a set of integers, expressing the 
selection as a single precision real value. 

Callinp Sermence' 



JSR @ AM.NO 

N (integer representing the number of members in set) 

FORTRAN ADDRESS of I 

FORTRAN ADDRESS of Ii 

FORTRAN ADDRESS of 1^ 

(The result is expressed as a single precision real on the top of the 
number stack. ) 

OR 

FCALL 

AMINO 

N+l (where N is the number of members in the set) 

FORTRAN ADDRESS of result 

FORTRAN ADDRESS of Io 

FORTRAN ADDRESS of Ii 

FORTRAN ADDRESS of I N . : 

(The result is expressed as a single precision real stored at the 
FORTRAN ADDRESS of the result given in the calling sequence. ) 



Entry: AM.XO, AMAXO 

Function: Selects the largest member from a set of integers, expressing the selection 
as a single precision real value. 



Calling Sequence: 



JSR@AM.X0 

N (integer representing the number of members in set) 

FORTRAN ADDRESS of I 

FORTRAN ADDRESS of Ii 

FORTRAN ADDRESS of I N _ X 

(The result is expressed as a single precision real on the top of the 
number stack. ) 

OR 
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Mixed Mode 



ROUTINE: AMNXO (Continued) 

Calling Sequence : (Continued) 



FCALL 

AMAXO 

N+l (where N is the number of members in the set) 

FORTRAN ADDRESS of Io 

FORTRAN ADDRESS of i! 

FORTRAN ADDRESS of I N . : 

(The result is expressed as a single precision real stored at the 
FORTRAN ADDRESS of the result given in the calling sequence. ) 



Notes : 



(1) Accumulators and carry are restored on exit. 

(2) AM. NO and AM.XO must be referenced by . EXTD statements. 
AMAXO and AMINO must be referenced by . EXTN statemtnts. 

(3) No error messages are generated. 



---ROUTINE: BREAK 



Supporting Subroutines : ; NSP, SP, FXFL1, FLFX1, FRLD1, FSB1 

Subroutine Size: 1 page zero location and 15s locations of normally relocatable 
memory. 

Entry: FBRK1 

Function: Separates a single precision real number x into its integer and fractional 
components. 

Calling Sequence : 

(Input argument x is on top of number stack. ) 

FBRK1 

(Output fractional result replaces x on the number stack; integer 
result is placed in ACO. ) 



Notes: 



(1) Accumulators and carry are not restored on exit. 

(2) FBRK1 must be referenced by an . EXTN statement. 

(3) FLFX1 will generate an error message whenever the integer portion of the 
argument exceeds the range + (2 1 ^-1). 
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Mixed Mode 



- ROUTINE : CMPLX 

Supporting Subroutines: FSAV, FRET; FFST1, .FARG, FFLD1 

Subroutine Size: 1 page zero location and 40g locations of normally relocatable 
memory. 

Entry: CM. LX, CMPLX 

Function: Constructs a single precision complex number from two single precision 
real numbers. 

Calling Sequence : 

JSR §CM.LX 

FORTRAN ADDRESS of real portion 

FORTRAN ADDRESS of imaginary portion 

(A complex number is formed and loaded on the numbei tack. ) 

OR 

FCALL 

CMPLX 

Integer 3 

FORTRAN ADDRESS of result 

FORTRAN ADDRESS of real portion 

FORTRAN ADDRESS of imaginary portion 



Notes: 



(2) CM. LX must be referenced by an . EXTD statement and CMPLX by an . EXTN 
statement. 

(3) No error messages are generated. 



■ ROUTINE: CRCX1 

Supporting Subroutines : ; .FRGO, FFLD1, FRLD1, SP 

Subroutine Size: 1 page zero location and 22g locations of normally relocatable 
memory. 

Entry: CRCX1 

Function: Converts a packed single precision real number R to a single precision 
complex number of the form R+Oi . 



Calling Sequence : 



CRCX1 

FORTRAN ADDRESS of single precision real argument R 

(The real argument R is expanded to a complex number of the form 
R+Oi, which is loaded on the number stack. ) 
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Mixed Mode 



ROUTINE: CRCX1 (Continued) 
Notes : 

(1) Accumulators and carry are not restored on exit. 

(2) CRCX1 must be referenced by an . EXTN statement. 

(3) Error messages may be generated by the supporting subroutines. 

■ ROUTINE: CRCX2 

Supporting Subroutines: ; .FRGO, FFLD2, FRLD2, SP 

Subroutine Size: 1 page zero location and 24g locations of normally relocatable 
memory. 

Entry: CRCX2 

Function: Converts a packed double precision real number D to a double precision 
complex number of the form D+Oi . 

Calling Sequence : 

CRCX2 

FORTRAN ADDRESS of double precision real argument D 

(The real argument D is expanded to a complex number of the form 
D+Oi, which is loaded onto the number stack. ) 



Notes : 



(1) Accumulators and carry are not restored on exit. 

(2) CRCX2 must be referenced by an . EXTN statement. 

(3) An error message will be generated by FFLD2 or FRLD2 if stack overflow occurs. 



■ ROUTINE: CXFL1 

Supporting Subroutines : ; FXFL1, FRLD1, .FRGO, SP 

Subroutine Size: 1 page zero location and 21g locations of normally relocatable 
memory. 

Entry: CXFL1 

Function: Converts an integer I to a single precision complex number of the form 
I+Oi . 



Calling Sequence: 



CXFL1 

FORTRAN ADDRESS of the integer argument I 

(The integer argument I is expanded to a complex number of the form 
I+Oi which is loaded onto the number stack.) 
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Mixed Mode 



ROUTINE: CXFL1 (Continued) 
Notes : 

(1) Accumulators and carry are not stored on exit. 



(3) An error message is issued by a supporting routine on stack overflow. 

■ ROUTINE: CXFL2 

Supporting Subroutines : ; FXFL2, FRLD2, . FRGO, SP 

Subroutine Size: 1 page zero location and 23g locations of normally relocatable 
memory. 

Entry: CXFL2 

Function: Converts an integer I to a double precision complex number of the form 
I+Oi . 

Calling Sequence : 

CXFL2 

FORTRAN ADDRESS of integer argument I 

(The integer argument I is expanded to a double precision complex 
number of the form I+Oi which is loaded onto the number stack. ) 



Notes : 



(1) Accumulators and carry are not restored on exit. 

(2) CXFL2 must be referenced by an . EXTN statement. 

(3) An error message is issued by a supporting routine if stack overflow occurs. 



-- ROUTINE: DBREAK 

Supporting Subroutines : ; NSP, SP, FXFL2, FRLD2, FSB2, FLFX2 

Subroutine Size: 1 page zero location and 15g locations of normally relocatable 
memory. 

Entry: FBRK2 

Function: Separates a double precision real number into its integer and fractional 
components. 



13-7 



Licensed Material - Property of Data General Corporation 



Mixed Mode 



ROUTINE: DBREAK (Continued) 

Entry: FBRK2 (Continued) 

Calling Sequence : 

(The input argument is loaded on the number stack. ) 

FBRK2 

(The integer portion is expressed as a single precision fixed point 
value which is loaded into ACO. The fractional component replaces 
the input argument on the number stack. ) 

Notes : 

(1) Accumulators and carry are not restored on exit. 

(2) FBRK2 must be referenced by an . EXTN statement. 

(3) Error messages may be generated by the supporting routines. 

--- ROUTINE: DCMPL 

Supporting Subroutines: FSAV, FRET; . FARG, FFLD2, FFST2 

Subroutine Size: 1 page zero location and 43g locations of normally relocatable 
memory. 

Entry: DC.FX, DCMPL 

Function: Constructs a double precision complex number from two double precision 
real numbers. 

Calling Sequence : 

JSR @DC. PX 

FORTRAN ADDRESS of real portion 

FORTRAN ADDRESS of imaginary portion 

(A complex number is formed and loaded on the number stack. ) 

OR 

FCALL 

DCMPL 

Integer 3 

FORTRAN ADDRESS of result 

FORTRAN ADDRESS of real portion 

FORTRAN ADDRESS of imaginary portion 



Notes : 



(1) Accumulators and carry are restored on exit. 

(2) XC. LX is equivalent to DC. PX and both must be referenced by . EXTD statements. 
DCMPL must be referenced by an . EXTN statement. 
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Mixed Mode 



ROUTINE: DIPWR 

Supporting Subroutines : FRET, FSAV; . FARG, NSP, FLIP2. FDV2, FML2, 

FRST2, FRLD2, FFLD2 
Subroutine Size: 1 nage zero location and 52 locations of normally relocatable 
memory. 

Entry: FIPR2 

Function: Raises a double precision real number to an integer power. 

Calling Sequence : 

FIPR2 

FORTRAN ADDRESS of the integer power, I 

FORTRAN ADDRESS of the real base 

(The real result is loaded on the number stack. ) 

Notes : 

(1) Accumulators and carry are restored on exit. 

(2) FIPR2 must be referenced by an . EXTN statement. The FCALL entry point, 
DIPWR, must also be referenced by an . EXTN statement. 

(3) Typical execution times on the NOVA with software multiply /divide arc 

5 ms*(I-l) when IS1, or 5 ms when 1=0. When 1^-1, the execution time is 
17.5 ms +(-I-l)*5.5 ms. 

(4) Typical execution times on the SUPERNOVA with hardware multiply /divide are 
425 us when 1=0, and 1 ms + (I- 1)*. 6 ms when IS 1. Execution times when 
l<_ -1 are correspondingly larger. 

(5) Each of the above execution times includes the time required for one floating 
point store operation. 



ROUTINE: FLIP 

Supporting Subroutines : ; SP, NSP 

Subroutine Size: 2 page zero locations and 26 locations of normally relocatable 
memory. 

Entry: .FLIP 

Function: Interchanges two single or double precision real numbers. 

Calling Sequence : 

(ACQ and AC1 point to two six -word frames (usually on the number stack, 
but they could be anywhere) which are to be swapped.) 

JSR §. FLIP 

(The contents of the two frames are now exchanged. ) 
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Mixed Mode 



ROUTINE: FLIP (Continued) 

Entry: FLIP1, FLIP2 

Function: Interchanges two single or double precision real numbers on the number 
stack. 

Calling Sequence: 

(The two topmost frames on the number stack contain variables which 
will be interchanged. ) 

FLIP1 or FLIP2 

(The two topmost variables on the number stack are swapped. ) 



Notes : 



(1) Accumulators and carry are not restored on exit. 

(2) . FLIP must be referenced by an . EXTD statement. FLIP1 and FLIP2 are 
equivalent and both must be referenced by . EXTN statements. 

(3) No error messages are generated. 



■ ROUTINE: IDINT 

Supporting Subroutines : FSAV, FRET; FLFX2, FFLD2, .FARC 

Subroutine Size: 1 page zero location and lis locations of normally relocatable 
memory. 

Entry: ID. NT 

Function: Truncates a double precision real number and expresses the result as 
a fixed point number. 

Calling Sequence: 

JSR @ID.NT 

FORTRAN ADDRESS of result 

FORTRAN ADDRESS of real DR to be truncated 



Notes: 



(1) Accumulators and carry are restored on exit. 

(2) DR is truncated, converted to a fixed point number, and is stored at the 
FORTRAN ADDRESS of the result. 

(3) XI. is equivalent to ID.NT and both must be referenced by . EXTD statements. 
The FCALL entry .IDIN must be referenced by an . EXTN statement. 

(4) Error messages are generated if the truncated real number is greater than 
2 15 -1 or less than -(2 1 5-i). 
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Mixed Mode 



ROUTINE: IFIX 



Supporting Subroutines: FSAV, FRET; . FARG, FFLD1, FLFX1, NSP 

Subroutine Size: 1 page zero location and 21§ locations of normally relocatable 

memory. 

Entry: IF.X 

Function: Truncates a single precision real number and expresses it as a fixed 
point number. 

Calling Sequence : 

JSR@IF.X 

FORTRAN ADDRESSof integer result 

FORTRAN ADDRESS of real value to be truncated 



Notes: 



(1) Accumulators and carry are restored on exit. 

(2) XI. X is equivalent to IF. X and both must be referenced by . EXTD statements. 
The FCALL entry point .IFIX must be referenced by an . EXTN statement. 



---ROUTINE: INT 



Supporting Subroutines: FSAV, FRET; .FARG, FFLD1, FLFX1 

Subroutine Size: 1 page zero location and llg locations of normally relocatable 
memory. 

Entry: IN . 

Function: Truncates a single precision real and expresses the result as the nearest 
integer. 

Calling Sequence : 



JSR @IN. 

FORTRAN ADDRESS of result 

FORTRAN ADDRESS of real R to be truncated. 



Notes : 



(1) Accumulators and carry are restored on exit. 

(2) R is truncated, converted to a fixed point number and is stored at the FORTRAN 
ADDRESS indicated in the calling sequence. 

(3) If the truncated real is greater than 215-1 or less than -(2 15 -1), FLFX1 will 
generate an error message. 

(4) Result = Sign of argument * largest integer 5 jargument] . 

(5) IN. must lie referenced by an . EXTD statement. The FCALL entry point .INT 
must be referenced by an . EXTN statement. 
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Mixed Mode 



---ROUTINE: LDREG 



Supporting Subroutines: ; NSP, SP, .NDSP, .RTER 

Subroutine Size: 2 page zero locations and 32s locations of normally relocatable 

memory. 

Entry: FRLD1 

Function: Loads an unpacked single precision real number onto the number stack. 

Calling Sequence : 

(ACO contains the address of the sign word of a single precision real 
number which is to be loaded onto the number stack. ) 

FRLD1 

(The single precision real number is loaded onto the top of the number 
stack. ) 

Entry: FRLD 2 

Function: Loads an unpacked double precision real number onto the number stack. 

Calling Sequence : 

(ACO contains the address of the sign word of a double precision real 
number which is to be loaded onto the number stack. ) 

FRLD2 

(The double precision real number is loaded onto the top of the number 
stack. ) 



Notes: 



(1) Accumulators and carry are not restored on exit. 

(2) FRLD1 and FRLD2 must be referenced by . EXTN statements. 

(3) A fatal error message is generated on stack overflow. 

(4) An unpacked single precision real number in normally relocatable memory 
occupies four sequential memory locations. This four word block is expanded to 
6 words by padding the two least significant mantissa words with zeroes so that 
all frame lengths on the number stack will be of equal size. 



---ROUTINE: MNMX1 



Supporting Subroutines : FSAV, FRET; . FARG, FLFX1, FFLD1, FCLT1 

Subroutine Size: 2 page zero locations and 46s locations of normally relocatable 
memory. 

Entry: MA.l 

Function: Selects the largest member from a set of single precision real numbers 
and expresses the result as a fixed point number. 
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Mixed Mode 



ROUTINE : MNMX1 (Continued) 

Entry: MA. 1 (Continued) 

Calling Sequence : 

JSR (SiM A, 1 

N+l (where N is the number of members in the set) 

FORTRAN ADDRESS of resuit 

FORTRAN ADDRESS of Rl 

FORTRAN ADDRESS OF RN 

Entry: MI. 1 

Function: Selects the smallest member from a set of single precision real numbers 
and expresses the result as a fixed point number. 

Calling Sequence : 

JSR (SMI. 1 

N+l (where N is the number of members in the set) 

FORTRAN ADDRESS of result 

FORTRAN ADDRESS of Rl 

FORTRAN ADDRESS of RN 



Notes : 



(1) Accumulators and carry are restored on exit. 

(2) XA. 1 is equivalent to MA. 1 and XI. 1 is equivalent to MI. 1 . All must be 
referenced by , EXTD statements. 

(3) FCALL entries MAX1 and MINI must be referenced by . EXTN statements. 

(4) An error message is generated if the truncated real exceeds 2^-1 or is less 
than -(2 15 -1). 



■ ROUTINE: RIPWR 

Supporting Subroutines: FRET, FSAV; . FARG, NSP, FLIP1, FDV1, FML1, 
FRST1, FRLD1, FFLD1 

Subroutine Size: 1 page zero location and 50g locations of normally relocatable 
memory. 

Entry: FIPR1 

Function : Raises a single precision real base to an integer power. 

Calling Sequence : 

FIPR1 

FORTRAN ADDRESS of the integer power, I 

FORTRAN ADDRESS of the real base 

(The real result is loaded on the number stack. ) 
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Mixed Mode 



ROUTINE: RIPWR (Continued) 



Notes: 



(1) Accumulators and carry are restored on exit. 

(2) FIPR1 must be referenced by an . EXTN statement. The FCALL entry RIPWR 
must also be referenced by an . EXTN statement. 

(3) Error messages are issued by supporting routines whenever appropriate. 

(4) Typical execution times on the NOVA with software multiply /divide are 1. 45 ms 
when 1=0, and 3 ms + (I-l)*l. 7 ms when I > 1. When I < -1, NOVA execution times 
are 5.3 ms + (-1-1)* 1.6 ms. 

(5) Typical execution times on the SUPERNOVA with hardware multiply /divide are 
360 rs when 1=0, and 550 us + (1-1)* 180 us when I > 1. Execution times when 

I «. -1 are correspondingly larger. 

(6) Each of the above execution times includes the time required for one floating 
store operation. 

-- ROUTINE: STREG 

Supporting Subroutines : ; SP, NSP 

Subroutine Size: 2 page zero locations and 25s locations of normally relocatable 
memory. 

Entry: FRST1 

Function: Stores a single precision real number located on the number stack at a 
specified address, in unpacked form. 

Calling Sequence : 

(Address to receive sign word of single precision real number is 
contained in AC0. ) 

FRST1 

(The single precision number is stored, unpacked, at the four sequential 
addresses specified, and the number is popped from the number stack. ) 

Entry: FRST2 

Function: Stores a double precision real number located on the number stack 
at a specified address, in unpacked form. 

Calling Sequence : 

(Address to receive sign word of double precision real number is 
contained in AC0. ) 

FRST2 

(The double precision real number is stored, unpacked, at the six 
sequential addresses specified, and the number is popped from the 
number stack. ) 
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ROUTINE: STREG (Continued) 



Mixed Mode 



Notes: 



(1) Accumulators and carry are not restored on exit. 

(2) FRST1 and FRST2 must be referenced by . EXTN statements. 

(3) No error messages are generated and no check is made by this routine to 
ascertain whether or not there really is a number on the number stack. 
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STRING /BYTE MANIPULATION ROUTINES 



COMP 14-3 

LDO H-3 

LDSTB 14-4 

MOVE 14-5 

MOVEF 14-6 

MVBT ,, : , : ,,._._,._._ s J4-6 

MVF. 14-7 

MVZ. 14-8 
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--- ROUTINE: COMP 



String/Byte 
Manipulation 



Supporting Subroutines : FSAV, FRET; . LDBT 

Subroutine Size: 1 page zero location and 34g locations of normally relocatable 
memory. 

Entry: .COMP 

Function: Compares two character strings for identity. 

Calling Sequence : 

(Siring byte pointers in ACO and ACi) 

JSR@.COMP 

(Return is to the next sequential address if the strings match, 
and to one after the next sequential address if they do not match. ) 

Notes : 

(1) Accumulators and carry are restored on exit. 

(2) . COMP must be referenced by an . EXTD statement. The FCALL entry 
COMP must be referenced by an . EXTN statement. 

(3) No error messages are generated. 

(4) Each string must be terminated with a null byte. 

ROUTINE : LDO 



Supporting Subroutines : ; QSP 

Subroutine Size: 6 page zero locations and 17 g locations of normally relocatable 
memory. 

Entry: .LDO, XD1, . LD2 

Function: Permits the loading of any accumulator except AC3 from any absolute 
address. 

Calling Sequence : 

JSRfft.LDO (.LD1, . LD2) 
Any Absolute Address 

(ACO -- or ACI, AC2 -- is loaded with the contents of the 
absolute address. ) 

Entry: . STO, .ST1, . ST2 

Function : Permits the storing of any accumulator except AC3 into any absolute 
address. 
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ROUTINE: LDO (Continued) 

Entry: . STO, .ST1, . ST2 (Continued) 

Calling Sequence : 

JSRg.STO (.ST1, .ST2) 
Any absolute address 



String/Byte 
Manipulation 



(The contents of ACO -- or AC1, AC2 --is stored at the absolute 
address. ) 



Notes : 



(1) The value of FSP contained in AC3 prior to the call is restored in AC3 
upon exit from the routine. 

(2) .LDO, .LD1, .LD2, .STO, .ST1, and . ST2 must be referenced 
by . EXTD statements. 

(3) No error messages are generated if an attempt is made to reference a 
non-existent location. 

(4) This routine uses QSP for temporary storage, so the existence of at least 
one FORTRAN stack frame is 'required for operation of the routine. 



--- ROUTINE: LDSTB 



Supporting Subroutines : ; . SVO 

Subroutine Size : 2 page zero locations and 30g locations of normally relocatable 
memory. 

Entry: . LDBT 

Function: Loads a byte by means of a byte pointer. 

Calling Sequence : 

(ACO contains the byte pointer. ) 

JSR@.LDBT 

(AC1 contains the byte, right justified. ) 

Entry: . STBT 

Function: Stores a byte by means of a byte pointer. 

Calling Sequence : 

(AC1 contains the word whose right byte is to be stored. ACO 
contains the byte pointer. ) 

JSRg.STBT 
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ROUTINE: LDSTB (Continued) 

Notes: 



String/Byte 
Manipulation 



(1) Accumulators and carry are not restored on exit, except for ACO. AC3 
contains FSP on exit. 

<2) . T,F)RT and STHTmiictlvTrfpronreHho cvm .k,. .. 

(3) No error messages are generated. 

(4) The byte pointer is left unchanged on exit. 



ROUTINE : MOVE 

Supporting Subroutines : FRET, FSAV 

Subroutine Size: No page zero locations and 44s locations of normally relocatable 
memory. 

Entry: MOVE 

Function: Moves all of a byte string. 

Calling Sequence : 

(ACO contains the byte pointer to the beginning of the source 
string. AC1 contains a byte pointer to the beginning of the 
destination string. The source byte string is terminated by an 
all zero byte. ) 

FCALL 
MOVE 

(AC1 points to the null byte in the destination string. ) 

Entry: CMOVE 

Function : Moves part of a byte string. 

Calling Sequence: 

(ACO contains the byte pointer to the beginning of the source 
string. AC1 contains a byte pointer to the beginning of the 
destination string. AC2 contains the number of bytes which 
are to be moved. ) 

FCALL 
CMOVE 



(AC1 points to the last byte moved to the destination string. ) 



Notes: 



(1) Accumulators and carry are restored on exit. 

(2) MOVE and CMOVE must be referenced by . EXTN statements. 
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ROUTINE : MOVE : (Continued) 
Notes: (Continued) 



String/Byte 
Manipulation 



(3) No error messages are generated. No check is made by CMOVE to 
determine if the value in AC2 exceeds the number of bytes in the source 
string. The original source string remains unaltered in both move 
operations. 



--- ROUTINE: MOVEF 



Supporting Subroutines : ; SP, .MAD, QSP 

Subroutine Size; 1 page zero location and 23g locations of normally relocatable 
memory. 

Entry: .MOVE 

Function: Moves a block of words. 

Calling Sequence : 

JSR§.MOVE 

Word Count 

FORTRAN ADDRESS of word block 

FORTRAN ADDRESS of word block destination 

Notes : 

(1) Accumulators and carry are not restored on exit. 

(2) Upon completion of this routine, the word block is found both at its original 
location and at the destination location. 



-— ROUTINE: MVBT 



Supporting Subroutines: FRET, FSAV; . LDBT, .STBT 

Subroutine Size : 2 page zero locations and 37g locations of normally relocatable 
memory. 

Entry: .MVBC 

Function: Moves a byte string. 

Calling Sequence : 

(ACO contains a byte pointer to the byte string to be moved; 
AC1 contains a byte pointer to the destination of the string; 
and AC2 contains the number of bytes in the string. ) 

JSR@.MVBC 
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String/Byte 
Manipulation 



ROUTINE : MVBT (Continued) 

Entry: .MVBT 

Function: Moves a byte string. 

Caiiing Sequence : 

(ACO contains a byte pointer to the byte string to be moved; 
AC1 contains a byte pointer to the destination of the string; 
and AC2 contains the terminal character in the byte string. ) 

JSR (a) ; MVRT 

Notes : 

(1) Accumulators and carry are restored on exit. 

(2) . MVBC and . MVBT must be referenced by . EXTD statements. The FCALL 
entry points MVBC and MVBT must be referenced by . EXTN statements. 

(3) On exit from the routine, the byte string is found both at the specified 
destination and at its original location. 

(4) Bytes are packed left to right. Bits 0-14 of the byte pointer specify a 
memory address, and bit 15 is for left and 1 for the right byte at this 
address. 

ROUTINE : MVF 



Subroutine Size: 1 page zero location and 16g locations of normally relocatable 
memory. 

Entry: .MVF 

Function: Moves blocks of whole words within core memory. 

Calling Sequence: 

(Beginning address of the word block to be moved is in ACO; 
the destination address is in AC1; the number of words in the 
block is a positive integer in AC2. ) 

JSR (g. MVF 

Notes : 

(1) Accumulators and carry are restored on exit. 

(2) . MVF must be referenced by an . EXTD statement. The FCALL entry 
point MVF must be referenced by an . EXTN statement. 

(3) No error messages are generated. 

(4) The original word block is unchanged. 
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String/Byte 
Manipulation 



ROUTINE : MVZ 

Supporting Subroutines : FQRET, FSAV 

Subroutine Size: 1 page zero location and 13g locations of normally relocatable 
memory. 

Entry: .MVZ 

Function: Clears blocks of memory words. 

Calling Sequence : 

(Beginning address of block in AC1, number of words in the 
block to be zeroed is in ACO. ) 

Notes: JSR @. MVZ 

(1) Accumulators and carry are restored on exit. 

(2) . MVZ must be referenced by an . EXTD statement. The FCALL entry 
point MVZ must be referenced by an . EXTN statement. 

(3) No error messages are generated. 



14-8 



POINTERS AND DISPLACEMENTS 



ARDUM 15.3 

FPTRS 15-3 

FPZERO 15.4 

MDTD 1 , _ _ 

'"*"■■•■ 10-3 

NPTR3 15 _ 5 

NRPTR 15 . 6 
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--- ROUTINE: ARDUM 

Supporting .Subroutines : None 
Subroutine Size: 1 page zero location 
Entry: . FLSP 



Pointers/ 
DisTllacern^rit-t: 



r unction: cnacies . i to determine wnetner or not real or complex arithmetic is 
used, so that it may decide whether or not to allocate core space for 
the number stack. 

Definition: 



FLSP: 



.NREL 

FLSP 

.END 



Notes: 



(1) . FLSP will always be loaded along with the run time initialization program, 

. I. If real or complex arithmetic is used by the main program, the FPTRS 
module will have been loaded and resolved, assigning a location to the number 
stack pointer which is equivalent to FLSP. 

(2) . FLSP contains the default value 000377 at load time unless the FPTRS module 
has been loaded, in which case it will contain the resolved value for FLSP, 
which is some other ZREL address, and either allocate space for the number 
stack or not, depending upon the result of this test. 



ROUTINE : FPTRS 



Supporting Subroutines : None 
Subroutine Size: 1 page zero location 



Function: 



Definition: 



Defines a page zero pointer, NSP (or FLSP), to the current top of the 
number stack. This position will also be used by . I at initialization 
time to determine whether or not arithmetic routines have been used 
and thus whether the number stack should be allocated. 



FLSP: 
NSP= 



.ZREL 


FLSP 
.END 



Notes: 



(1) NSP and FLSP are synonyomous labels for the page zero location containing 
a pointer to the current top of the number stack. This module will be loaded 
only if real arithmetic routines are called for by .MAIN . 
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Pointers/ 
Displacements 



ROUTINE: FPTRS (Continued) I 

Notes (Continued) 

(2) FLSP is the label of a ZREL location other than 377g. This label is 
tested by . I which then either allocates a number stack or not, 
depending on the result of this test. 

(3) FLSP and NSP must both be referenced by . EXTD statements. 
---ROUTINE: FPZERO 



Supporting Subroutines : None 

Subroutine Size : lis page zero locations 

Function: These page zero locations are reserved for use by run time routines. 

Definitions: 



SP 



.NDSP 

SUCOM 
. OVFL 

AFSE 



Pointer to the Return Address Stack, which is a stack located 
after the . I stack, and whose size is determined by . I. 
Utilized by routines which do not use any of the FSAV family 
for storage of return addresses for exiting subroutines, and for 
miscellaneous storage. 

Pointer to one greater than the topmost possible location in the 
number stack. 

Start of unlabeled common. 

A flag used to indicate whether or not overflow (or underflow) 
has occurred, and therefore whether error messages should 
be issued. If all zero, no overflow has occurred; if set to a 
one, overflow has occurred. 

Indication of the end (top most memory location) of available 
run time stack area. 



.DSI 

.svo 

QSP 



Notes: 



Flag indicating whether or not the Stand-Alone-Operating System 
has been loaded. If non-zero, SOS was loaded. 

Return save for zero level routines like MPY. 

Pointer to FAC2. 



(1) Each of the above-named locations must be referenced by an . EXTD statement. 
Under RDOS, TVR is defined to be the starting address of the series of page 
zero locations. 
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Pointers/ 
Displac 



GUlCJiLS 



ROUTINE: NPTR1 

Supporting Subroutines: ; NSP 

Subroutine Size: 1 page zero location and 5 locations of normally relocatable 
memory. 

Entry: . NK1 

Function: Obtains a pointer to the first frame below the top frame of the 
number stack. 

Calling Sequence : 

JSR@.NR1 

(Pointer is returned in ACO. ) 

Notes : 

(1) Accumulators and carry are not restored on exit. 

(2) .NR1 must be referenced by an . EXTD statement. 

(3) No error messages are generated. 

(4) A frame is understood to be a block of six consecutive locations on the 
number stack. 

ROUTINE: NPTR3 

Supporting Subroutines: ; NSP 

Subroutine Size: 1 page zero location and 5 locations of normally relocatable 
memory. 

Entry: . NR3 

Function : Obtains a pointer to the third frame below the top frame of the 
number stack. 

Calling Sequence: 

JSR@.NR3 

(Pointer is returned in ACO. ) 

Note s : 

(1) Accumulators and carry are not restored and AC3 loses FSP on exit. 

(2) . NR3 must be referenced by an . EXTD statement. 

(3) No error messages are generated. 

(4) A frame consists of a block of six consecutive locations on the number stack. 
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---ROUTINE: NRPTR 



Pointers/ 
Displacements 



Supporting Subroutines : ; NSP 

Subroutine Size: 1 page zero location and 5 locations of normally relocatable 
memory. 



Entry: . NR2 



Function : Obtains a pointer to the second frame below the top frame of the 
number stack. 

Calling Sequence: 

JSR@.NR2 

(Pointer is returned in ACO . ) 



Notes: 



(1) Accumulators and carry are not restored and AC3 loses FSP on exit. 

(2) .NR2 must be referenced by an . EXTD statement. 

(3) No error messages are generated. 

(4) A frame consists of a block of six consecutive locations on the number stack. 
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LINKAGE AND INITIALIZATION ROUTINES 



'"■ •"• -I" io-o 

ARGUM 16-3 

CPYARG ' 16-4 

FARGO 16-5 

FLINK ie-6 

rn/-iT n .-_ 

i ivvj i^lj ,,,..,.. ..,,.... io~y 

I 16-9 

MAD 16-11 

MTI 16-12 

NFRTN 16-13 

OVFLO 16-14 
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Linkage/ 
Initialization 



-— ROUTINE: AFRTN 



Supporting Subroutines: FRET; .FRGO 

Subroutine Size: 1 page zero location and 5 locations of normally relocatable 
memory. 

Entry: .AFRTN 

Function: Provides an abnormal means of return from a FORTRAN subroutine. 
Return is to an address specified on the called subroutine's stack 
instead of the first location following the caller's parameter list. 

Calling Sequence : 

JSR @. AFRTN 

FORTRAN ADDRESS of variable containing the return address 



Notes: 



(1) Accumulators and carry are restored on exit. 

(2) . AFRTN must be referenced by an . EXTD statement. 

(3) No error messages are generated. 



--- ROUTINE: ARGUM 



Supporting Subroutines : ; SP 

Subroutine Size: 1 page zero location and 34 locations of normally relocatable 
memory. 

Entry: . FARG 

Function: Fetches a called subroutine's argument addresses when these are 
stored as FORTRAN ADDRESSes immediately following the caller. 

Calling Sequence : 

(ACO contains the number of argument addresses to be fetched. ) 

JSR @. FARG 

(Caller's argument addresses are stored on current stack. Caller's 
FRTN is updated. ) 

Notes : 

(1) Accumulators and carry are not restored on exit. 

(2) . FARG must be referenced by an . EXTD statement. 

(3) The following example illustrates the use of . FARG: 
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I Linkage/ 
1 Initialization 



ROUTINE: ARGUM (Continued) 



Notes: (Continued) 





ZREL 


AL.GO 


ALG10-2 


.NREL 


NREL 


.MAIN 





CAL1: 



JSR @AL.G0 ; THIS IS THE CALLING ROUTINE 
FORTRAN ADDRESS of argument 



FSAV 
3 
ALG10 SUBZL 0, ; PUT 1 IN ACO, SINCE THERE IS ONLY 

; ONE ARGUMENT FOLLOWING MAIN CALLER 
. CAL2: JSR §. FARG ; ARGUMENT ADDRESS IS STORED ON 

;ALG10*S STACK. 



Entry: .FARL 

Function: Transfers effective addresses of a caller's argument list to its called 
subroutine's stack. 

Calling Sequence : 

(FRTN points to argument list: {argI, etc.) * 
JSR <§. FARL 



Notes: 



(1) Accumulators and carry are not restored on exit. 

(2) . FARL must be referenced with an . EXTD statement. 

(3) Both . FARL and . FARG set FPLP on the current stack to be 
the number of arguments copied. 
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ROUTINE: CPYARG 



Linkage/ 
Initialization 



Supporting Subroutines : FRET, FSAV; .MADO 

Subroutine Size : 2 page zero locations and 42 locations of normally relocatable 
memory. 



Entry: .CPYA 



Function: Transfers effective addresses of a caller's argument list to its called 
subroutine's stack. 

Calling Sequence : 



SIJBR: 



FCALL 

SUBR 

N ; NUMBER OF ARGUMENTS IN LIST 

FADDR 

FADDR 



(ACO contains the number of arguments to be passed. ) 

JSR §.CPYA ; ADDRESSES OF CALLER'S ARGUMENTS 
; ARE NOW ON SUBR STACK 
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ROUTINE: CPYARG (Continued) 
Entry: .CPYL 



Linkage/ 
Initialization 



Function: Transfers effective addresses of a caller's argument list to its 
called subroutine's stack. 

Calling Sequence : 

FCALL 

SUBR 

N ; NUMBER OF ARGUMENTS IN LIST 

FADDR 

FADDR 



SUBR: 



(ACO contains the number of arguments to be passed. ) 

JSR@.CPYL ; ADDRESS OF CALLER'S ARGUMENTS ARE 
; NOW ON SUBR STACK 



Notes: 



(1) Accumulators and carry are restored on exit. 

(2) .CPYL and .CPYA must be referenced by .EXTD statements. The FCALL 
entry point CPYAR must be referenced by an . EXTN statement. 

(3) This routine is more generalized than FARG. 

(4) .CPYL updates the caller's return address (stored in FRTN) to the next 
sequential instruction following the call. 



--- ROUTINE: FARGO 



Supporting Subroutines : ; SP 

Subroutine Size: 2 page zero locations and 24 locations of normally relocatable 
memory. 

Entry: . FRGO 

Function: Calculates the effective address of an argument on the current stack 
frame, given its FORTRAN ADDRESS pointed to by AC2. 

Calling Sequence : 

(FORTRAN ADDRESS is pointed to by AC2. ) 

JSR @. FRGO 

(The address is returned in ACO. ) 
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ROUTINE: FARGO (Continued) 



Linkage/ 
Initialization 



Entry: . FRG1 

Function: Calculates the effective address of an argument on thr next-most -current 
stack frame, given its FORTRAN ADDRESS pointed to by AC2. 



Notes: 



Calling Sequence : 

(FORTRAN ADDRESS is pointed to by AC2.) 

JSR @. FRG1 

(The address is returned in ACO.) 

(1) Accumulators and carry are not restored on exit. 

(2) . FRGO and . FRG1 must be referenced by . EXTD statements. 

(3) This routine avoids the need for reserving stack storage and is also useful 
when an argument list is variable in length and contains single word arguments. 



--- ROUTINE: FLINK 



Supporting Subroutines: . I; AFSE, .RTEO, QSP 

Subroutine Size: 5 page zero locations and 140 locations of normally relocatable 
memory. 

Entry: FCALL 

Function: Used to call a subroutine which has no page zero entry, or to call a 
subroutine which has a page zero entry without using its page zero 
entry. 

Calling Sequence: 



FCALL 
SUBRT 



or, 





. ZREL 


. SUBR: 


SUBR -2 




.NREL 




FCALL 




SUBR 


NSI: 







FSAV 


SLW: 


Integer 1 


SUBR: 


. . . 



; NAME OF SUBROUTINE WHICH HAS NO 
; PAGE ZERO ENTRY 



BOTH SUBR and .SUBR HAVE BEEN ENTERED 



SUBR HAS A ZREL ENTRY 

NEXT SEQUENTIAL INSTRUCTION 

FOLLOWING CALL TO SUBR 



; FIRST TRUE INSTRUCTION OF CALLED SUBR 
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ROUTINE: FLINK (Continued) 



Entry: FRCAL 



Function: Calls a subroutine whose address is contained in AC2, and creates 
a stack for this subroutine if needed. 

waning jectuence : 

.ZREL 
. SUBR: SUBR 



.NREL 

LDA 2, .SUBR 

FRCAL 



SLW 



; STACK LENGTH WORD 



SUBR: 



Entry: FSAV 



Function: Saves a caller's accumulators and state of carry upon a subroutine 
page zero call, creates a new stack frame with temporary storage 
allocated if needed, and checks for stack overflow. 

Calling Sequence : 



FSAV 
I 



; STACK LENGTH WORD 



.ZREL 
.SUBR: SUBR -2 
. NREL 



JSRi.SUBR ; NEXT SEQUENTIAL INSTRUCTION FOLLOWING 
NSI: ... ; RETURN FROM SUBR 



SLW: 
SUBR: 

Entry: FRET 



FSAV 
I 



SAVE ACCUMULATORS, CARRY 

STACK LENGTH WORD 

FIRST TRUE CALLED INSTRUCTION 



Function: Restores a caller's accumulators and state of carry upon exit from 

the called subroutine, and returns to the next instruction following the 
call. 
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ROUTINE: FUNK (Continued) 
Entry: FRET (Continued) 

Calling Sequence : 

.ZREL 
. SUBR: SUBR-2 
. NREL 

JSR @.SUBR 
NEXT: 

FSAV 

SLW 
SUBR: 



Linkage/ 
Initialization 



FRET 



RESTO E CALLER'S ACCUMULATORS AND RETURN 



Entry: FQRET 

Function: Provides return from a called subroutine which neither requires 
temporary storage nor calls other subroutines. 



Calling Sequence: 



SUBR 



FSAV 
-1 



; NO TEMPORARY STORAGE 



Notes: 



FQRET 



(1) Accumulators (except AC3) and carry are restored on exit; AC3 contains 
the caller's FSP. 

(2) ]SR @. FCALL is equivalent to FCALL . JSR §. FSAV is equivalent to FSAV . 
FRET is equivalent to JSR @. FRET . 

(3) FCALL, FRCAL, FSAV, FRET, and FQRET must all be referenced by 
. EXTN statements. 

(4) .FCALL, .FSAV, .FRET must all. be referenced by .EXTD statements. 

(5) A fatal error message is generated if insufficient core is available 
for creation of the called routine's stack frame. 

(6) On entry to SUBR, ACO and AC1 and carry will be the same as the calling 
program's; AC2 will contain the calling program's FSP and AC3 will contain 
the called program's FSP. 

(7) All subroutines which neither call others nor require temporary storage 
(i.e. , all subroutines lacking stack frames) must use FQRET for return to 
the caller. 
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Notes: 



Linkage/ 

In iHnl ivn H. 



ROUTINE: FRGLD 



Supporting Subroutines : ; SP, .FRG1 

Subroutine Size: 1 page zero location and 10 locations of normally relocatable 
memory. 

. FRGLD 



Function: Fetches the contents of the FORTRAN ADDRESS pointed to by AC2. 
Calling Sequence : 

(FORTRAN ADDRESS is pointed to by AC2. ) 

JSR (a. FRGLD 

(Result is returned in ACO. ) 

(1) Accumulators and carry are not restored on exit. 

(2) .FRGLD must be referenced by an .EXTD statement. 

(3) If the FORTRAN ADDRESS is a stack displacement, it is resolved with 
respect to the next -most -current stack frame, the caller's stack frame. 



ROUTINE: 



Supporting Subroutines : .FLSZ, .FLSP, FCALL, .MAIN; QSP, SUCOM, 
AFSE, .NDSP, SP, .STOP 

Subroutine Size: 1 page zero location and 241 locations of normally relocatable 
memory. 



Entry: ■ I 



Function: Allocates number and SP stacks and blank and unlabeled common for 
FORTRAN compiled programs, initializes the Run Time Stack, and 
constructs pointers in a SOS or single task RDOS environment. 

Calling Sequence : 

Instead of being called, . I receives program control when the loaded 
program is started, since the .END statement in this routine has the 
argument . I, whereas each other library routine is terminated by a 
simple . END statement. . I invokes the TCB initializer , after which it 
transfers control to the FORTRAN task scheduler. 
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Linkage/ 
Initialization 



ROUTINE: I (Continued) 



Entry: I (Continued) 

Description : 

A system call, , SYSI, is issued to initialize system I/O under SOS, 
and then a system reset (.RESET) is issued. Forty octal locations are 
then allocated for the SP stack immediately following the last loaded run 
time subroutine. A -1 is placed in the first location of the SP stack, 
and a pointer to the next location in the stack is created. The SP 
stack is simply a series of temporary locations for use by subroutines 
which have no stack set aside for their use. 

Next, the number stack pointer is defined and number stack storage 
is allocated if floating point arithmetic is used in . MAIN, the FORTRAN 
program which is about to be run. This storage will be 630 words long 
or 30 plus twice whatever a user has specified in a .FLSZ statement. 
The default value creates enough room for 68 real numbers or 34 complex 
numbers, either single or double precision. After the allocation of the 
number stack (or after the allocation of the SP stack if no number stack 
is called for), . I's stack with 60 temporary storage locations is allocated; 
the Channel Assignment Table will be placed in these locations. 

Next, a check is made to see whether or not there is room enough for 
blank common allocation, and blank common is allocated at the high end 
of memory. .NMAX is now updated with the system call .MEMI; 
the Channel Assignement Table is initialized and placed in the . I stack. 

Upon completion of the initialization procedure, . I issues an FCALL to 
the assembly language routine having the entry .MAIN, generated from 
the main FORTRAN program. At the completion of .MAIN, return is 
made to .1 . Under RDOS, . I calls STOP, which then transfers control 
back to . I after out -putting STOP 999 on the console. The system 
performs an effective halt, JMP . , under SOS. 

Entry: FERTN 

Function: Transfers control to the CLI via the call . SYSTM, . RTN . 
Entry: FERTO 

Function: Transfers control to the CLI via the call . SYSTM, . ERTN . 
Entry: FERT1 

Function: Transfers control to the debugger. 
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Linkage/ 
Initialization 



ROUTINE : ISARET 

Supporting Subroutines : FRET 

Subroutine Size: 2 ZREL 

Entry: .ISANORM, ISA. NORM 

Provides ISA normal return by setting the argument [indicated] by FPLP to a 1. 
(.FARL or . FARG sets FPLP.) 

Call: ISA. NORM 

Eiiti'y: . ISAERR, ISA. ER R 

Provides ISA error return by setting the argument [indicated] by FPLP to the 
value in AC2, plus 3. (. FARL or . FARG sets FPLP. ) Bit of the resulting 
error is always set to zero. 

Call: ISA. ERR 

Both routines then return using FRET. 
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Linkage/ 
Initialization 



ROUTINE: MAD 



Supporting Subroutines : None 

Subroutine Size: 2 page zero locations and 25 locations of normally relocatable 
memory. 



Entry: .MAD 

Function: Resolves an effective address from a given FORTRAN ADDRESS. 

Clflllincr Spnuen^e* 

(Input FORTRAN ADDRESS in AC2; current (i.e. , caller's) FSPis 
base used in calculation. ) 

JSR@.MAD 

(AC2 contains effective address on exit; AC3 does not contain caller's 
FSP on exit. ) 

Entry: MADO 

Function: Resolves an effective address from a given FORTRAN ADDRESS. 
Calling Sequence : 

(Input FORTRAN ADDRESS in AC2; base FSP in AC1. ) 

yen fc \ f i T~\r\ 

(AC2 contains effective address on exit; AC3 does not contain caller's 
FSP on exit. ) 

Notes : 

(1) Accumulators and carry are not restored on exit. 

(2) .MAD and .MADO must be referenced by . EXTD statements. 

(3) No error messages are generated. 



16-11 



Licensed Material - Property of Data Genera! Corporation 



---ROUTINE: 



MT1 



Linkage/ 
uiitializatio]) 



Supporting Subroutines : INHD3, FRTSK, FHMA, DVD, FCALL, KILL, 

SVVAR, TMAX2, .BASC, .MAIN; SUCOM, FLSP, 
.OVFL, SP, .WRCH, .IOC AT 

Subroutine Size: No page zero locations and 426 8 locations of normally relocatable 
memor y. The Channel Assignment Table, 60s locations, over- 
writes part of . I after that section of initialization code has 
been executed. 



Entry: 



Function: (1) Performs initialization functions in a multitasking environment. 

(2) Partitions the free memory area into equal segments for the 
creation of each task's run time stacks. 

(3) Allocates a blank common area if needed. 

(4) Builds an I/O Channel Assignment Table initialized to the default 
values of the logical FORTRAN channels. 

(5) Allocates number, SP, and run time stacks, and creates the 
associated stack pointers for the first task by means of a call 
to the TCB initializer. 

Calling Sequence : 

Instead of being called, . I receives program control when the loaded 
program is started, since the . END statement in this routine has the 
argument . I, whereas each other library routine is terminated by a 
simple .END statement. .1 invokes the TCB initializer, after which 
it transfers control to the FORTRAN task scheduler. 



Description: 



A system call, .RESET, is issued to initialize system I/O. USTCS 
of the User Status Table (UST) is examined to determine the size of 
blank common. Blank common is then allocated, if possible, and a 
pointer to the start of blank common is created. If there is not enough 
memory available for blank common allocation, error message MEMOVFL 
is output and a return to the next higher program level (usually the CLI) 
is made by means of .SYSTM, .RTN . 

A temporary SP stack is then created (and will later be overwritten). 
The number of tasks and FORTRAN channels which will be required 
is determined by examining USTCH of the UST. DVD is then called, 
and the remaining free memory is partitioned into equal segments, 
one for each task's later run time use. Each run time segment has 
a link to the following segment built into its first word, and a flag bit 
is allocated to indicate whether the segment has yet been assigned to a 
specific task. For a more detailed discussion of run time segments, 
see Chapter 2. 

ITCB is then called, setting up stacks and stack pointers in the first 
run time segment area for the first FORTRAN task. The Channel 
Assignment Table is then built over the beginning of . I code, which 
is of no further use in a multi -tasking environment after its initial 
execution. Control is then given to the FORTRAN Task Scheduler. 
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ROUTINE: MTI (Continued) 



Entry: FERTN 



Linkage/ 
Initialization 



Entry: FERTO 

Function: Transfers control to the CLI via the call .SYSTM, . ERTN . 
Entry: FERT1 

Function: Transfers control to the debugger. 

Entry: ITCB 

Function: Allocates number, SP, and run time stacks and stack pointers in 
a FORTRAN task's run time segment area. 

Calling Sequence : 

Input: 

ACO - priority of the task which is to be assigned the stack area 

segment 
AC1 - starting address of the task's TCB 

JSR i.ITCB 

Output: 

SP \'QP NT^QP AtTCp Iff IT T7CP nCD rvWTJT „,-„ 

initialized 

Notes : 

. I calls ITCB as part of the initialization process, and . ITCB is called each 
time a stack segment is to be used by a FORTRAN task for the first time. 



-- ROUTINE: NFRTN 

Supporting Subroutines: FRET 

Subroutine Size: 1 page zero location and 10 locations of normally relocatable 
memory. 

Entry: .NFRTN 

Function: Provides a called subroutine with a means of return to the first 
location following the caller's parameter list. 
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Linkage/ 
Initialization 



ROUTINE: KFRTN (Continued) 
Entry: . NFRTK (Continued) 
Calling Sequence : 

JMP @. NFRTN 



Notes: 



(1) Accumulators and carry are restored on exit. 

(2) . NFRT must be referenced by an . EXTD statement. 

(3) No error messages are generated. 

(4) This routine assumes that FRTN points to N, the first item in the caller's 
parameter list. 

--- ROUTINE: OVFLO 

Supporting Subroutines : ; .AFRT, .OVFL, .CPYL 

Subroutine Size: No page zero locations and 23 locations of normally relocatable 

^ o 

memory. 

Entry: OVERFLOW 

Function: Provides a means of abnormal return from a subroutine by checking 
for the occurrence of non -integer arithmetic overflow. 

Calling Sequence : 

FCALL 

OVERFLOW 

Integer 2 or 3 

FORTRAN ADDRESS of return on overflow 

FORTRAN ADDRESS of return if no overflow 

.optional FORTRAN ADDRESS of string literal "S" or "N" 

Notes : 

(1) Accumulators and carry are not restored on exit. 

(2) OVERFLOW must be referenced by an . EXTN statement. 

(3) The string literal argument consists of an ASCII S or N, left justified 
and followed by a null byte. If the argument is S, overflow messages are 
suppressed; if N, overflow messages are not suppressed. S is the default 
value if no string literal argument address is given. 
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INPUT/OUTPUT ROUTINES 



COUT 17-3 

FREAD 1.7-3 

MTDIO 17-5 

R.DBLK . 17-7 

RDFLD 17-8 

READL 17-10 

READR 17-11 

WRCH 17-13 
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I/O 



ROUTINE : COUT 

Supporting Subroutines : FQRET, FSAV 

Subroutine Size: 2 page zero locations and 23s locations of normally relocatable 
memory. 

Entry: .COUT 

Function: Outputs a character on a teletype. 

Calling Sequence: 



JSR@.COUT 

(The character is output to a TTY printer/punch. ) 
Entry: .CIN 

Function: Inputs a character on a teletype. 
Calling Sequence : 

JSR@.CIN 

(ACO contains a character input from a TTY reader/keyboard. ) 
Notes : 

(1) Accumulators and carry are restored on exit. 

(2) . COUT and . CIN must be referenced by . EXTD statements. 

(3) The FCALL entry points COUT and CIN must be referenced by . EXTN 
statements. 

(4) No error messages are generated. 

(5) Characters input via . CIN will also be echoed on the TTY printer/punch. 

(6) If the character output was a carriage return, a line feed will also be output. 

--- ROUTINE: FREAD 

Supporting Subroutines : FSAV, FRET, MPY, DVD, FERTO; .WRTS, .REDS, 
.ALLOC, .THREAD, .FRG1, . FRGLD, .READL, 
.WRITL, .RDFCH, .RTER, .RDFLD, .STBT, . LDBT, 
.MVBC, .ARYSZ, . FSBR, .WRCH, SP, . SVO 

Subroutine Size : 24 g page zero locations and 3670g locations of normally relocatable 
memory. 

Entry: .BRD 

Function : Performs FORTRAN input of binary data. 
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I/O 



ROUTINE: FREAD (Continued) 
Entry: .BRD (Continued) 
Calling Sequence: 



JSR § . BRD 

FORTRAN ADDRESS of the logical channel number 



ELEMENT DESCRIPTOR SEQUENCE (S) (see Chapter 6) 

5 



Entry: .BWR 

Function : Performs FORTRAN output of binary data. 

Calling Sequence : 

JSR @. BWR 

FORTRAN ADDRESS of the logical channel number 



ELEMENT DESCRIPTOR SEQUENCE (S) (see Chapter 6) 

5 

Entry: . FREAD 

Function: Performs formatted or free form FORTRAN input of ASCII data. 

Calling Sequence : 

JSR § . FREAD 

FORTRAN ADDRESS of the logical channel number 
FORTRAN ADDRESS of the format statement text string 
ELEMENT DESCRIPTOR SEQUENCE (S) (see Chapter 6 ) 

5 

Entry: . FWRIT 

Function: Performs formatted or free form FORTRAN output of ASCII data. 

Calling Sequence : 

JSR @. FWRIT 

FORTRAN ADDRESS of the logical channel number 
FORTRAN ADDRESS of the format statement text string 
ELEMENT DESCRIPTOR SEQUENCE (S) (see Chapter 6 ) 

5 

Notes : 

(1) Contents of accumulators and carry are restored on exit. 

(2) .FREAD, .FWRI, .BRD, and . BWR must all be referenced by . EXTD 
statements. 

(3) If free form FORTRAN I/O of ASCII data is to be performed, the FORTRAN 
ADDRESS of the format statement text string in the calling sequence must be 0. 
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I I/O 

I 

ROUTINE: FREAD (Continued) 
Notes : (Continued) 

(4) If the contents of the first word in the format text string are 002401, then 
the first four bytes in this string are ignored. This permits FREAD to be 
used by the FORTRAN compiler, which always precedes the format text 
string with JMP @. +1, which assembles as 002401. 

(5) The ELEMENT DESCRIPTOR SEQUENCES describe in detail the nature of 
each data type in the list of elements to be input or output. Each SEQUENCE 
is in reality a set of eight possible calling sequences. One sequence is 
selected to describe each data element in the I/O list. Refer to Chapter 6 
tor a detailed description. 

(6) There are four FCALL entry points corresponding to . FREAD, . FWRIT, 

. BRD and . BWR: FREAD, FWRIT, BRD and BWR, which must be referenced 
by . EXTN statements. 



ROUTINE: IOPRE 



Supporting Subroutines: . SV0, . RTER 
Subroutine Size: 2 ZREL 



Entry: . IOPR 



Translates a FORTRAN channel number into the corresponding l/u 
channel assignment table (IOCAT) entry. 

Call: AC2 = FORTRAN channel number 
JSR §.IOPR 

<channel is closed> ;AC2 = §ERFOP 

<channel is open> ;AC2 = SYSTEM CHANNEL NUMBER 

AC1 = address of IOCAT entry 
AC0 = unchanged 
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J I/O 

ROUTINE MTDIO 

Supporting Subroutines: FRET; .CFYL, .IOCAT 

Subroutine Size: No page zero locations and 55s locations of normally relocatable 
memory. 

Entry: MTDIO 

Function: Allows machine level I/O on magnetic tape and cassette units as 
described in the RDOS and RTOS manuals. 

Calling Sequence: 

FCALL 

MTDIO 

Integer 5 or 6 

FORTRAN ADDRESS of channel number 

FORTRAN ADDRESS of command word 

FORTRAN ADDRESS of I/O array specifier 

FORTRAN ADDRESS of status word 

FORTRAN ADDRESS of error code 

optional FORTRAN ADDRESS of WRD/REC count 

Notes : 

(1) Accumulators and carry are restored on exit. 

(2) MTDIO must be referenced by an . EXTN statement. 

(3) The command word specifies the operation to be performed: 
Bits Meaning 

Parity bit (l=even, 0=odd) 

1-3 - read 

1 - rewind the tape 

3 - space forward (over record or over file of 

any size) 

4 - space backward (over record or over file of 

any size) 

5 - write (words) 

6 - write end of file 

7 - read device status word 

4-15 Word or record count. If a on a space forward 

or backward, the tape is positioned to the beginning 
of the next or previous file on the tape. If on a 
read or write command, 4096 words are read or 
written unless an end of record is detected. 
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I/O 



ROUTINE: MTDIO (Continued) 



Notes : (Continued) 

(4) The I/O array specifier points to an integer array used for I/O. This I/O 
array will be used to return the status information of the transfer according to 
the following definition: 



Bit 


1 
2 
3 
4 
5 
6 
7 



10 
11 
12 
13 
14 
15 



Meaning 

Error (bits 1, 3, 5, 6, 7, 8, 10, or 14 set) 

Data late 

Tape is rewinding 

Illegal command 

High density if =1 (always 1 for cassettes) 

Parity error 

End of tape 

End of file 

Tape is at load point 

9 track if 1, 7 track if (always 1 for cassettes) 

Bad tape or write failure 

Send clock (always zero for cassettes) 

First character (always for cassettes) 

Write protected or write locked 

Odd character (always for cassettes) 

Unit ready 



(5) In addition to being returned in the I/O array if the command word contained a 
7 in bits 1 -3, the status information is always returned in the status word defined 
in the calling sequence. The bit meanings are defined in (4) above. 




(6) CAUTION: 
BYPASSES 
CHECKING 
I/O. -IT 
DESTROY 



THIS 
THE 
AND 
IS P o s 
THE 
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I/O 



ROUTINE: MTDIO (Continued) 
Notes : (Continued) 

Only very limited error checking is performed. The error code will be set to 
one of the following states: 

- Indeterminate error 

1 - No error occurred or error ignored 
3. ..n - RDOS system error code +3 

An indeterminate error indicates that bit of the device status word was set. 
However, an indeterminate error will not be indicated if this error bit was set 
as a result of end of tape or end of file. 

The RDOS error codes will provide limited system and file error information, 
but fatal device errors can go undetected. 

(7) The optional WRD/REC count will return the actual number of words or records 
processed. 

(8) This routine issues the RDOS system call .MTDIO. 



-- ROUTINE: RDBLK 

Supporting Subroutines: FRET; . CPYL, . IOCAT 

Subroutine Size: No page zero locations and 72 g locations of normally relocatable 
memory. 

Entry: RDBLK 

Function : Reads into an array a series of disk blocks from a file that is 
organized either randomly or contiguously. 

Calling Sequence : 

FCALL 
RDBLK 

Integer number of arguments, 5 or 6 
FORTRAN ADDRESS of FORTRAN channel number 
FORTRAN ADDRESS of starting block number 
FORTRAN ADDRESS of array to receive block of data 
FORTRAN ADDRESS of number of blocks to be read 
FORTRAN ADDRESS of error code 
optional FORTRAN ADDRESS of block count 



Entry: WRBLK 

Function: Writes a series of 256-word blocks from an array into an RDOS disk 

file. The disk file must be organized either randomly or contiguously. 
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| I/O 

I 

ROUTINE: RDBLK (Continued) 

Entry: WRBLK (Continued) 

Calling Sequence : 

FCALL 

WRBLK 

Integer number of arguments, 5 or 6 

FORTRAN ADDRESS of FORTRAN channel number 

FORTRAN ADDRESS of starting block number 

FORTRAN ADDRESS of array transmitting block of data 

FORTRAN ADDRESS of number of blocks to be written 

FORTRAN ADDRESS of error code 

optional FORTRAN ADDRESS of block count 



Notes: 



(1) Accumulators and carry are restored upon exit. 

(2) RDBLK and WRBLK must be referenced by . EXTN statements. 

(3) The starting block number is the logical (or relative) number of the block 
within the file to or from which reading or writing will occur. The first 
block in the file is logical block 0, the second is block 1, etc. 

(4) Since disk blocks are each 256io words in length, the array size must be 
n*256, where n is the number of blocks to be read or written. No check is 
made to determine whether the size of the array is adequate. In the case 
where a premature end of file is detected on a read, or disk overflow occurs 
on a write, the optional block count argument will be set to the number of 
blocks actually read or written. 

(5) The error code word will be set to one of the following states: 

- Indeterminate error 

1 - No error occurred 

3. . .n - RDOS system error code + 3 



ROUTINE: RDFLD 



Supporting Subroutines : FSAV, FRET; . FARG, . LDBT, .STBT, .RTER 

Subroutine Size: 2 page zero locations and 115 8 locations of normally relocatable 
memory. 

Entry: .RDFLD 

Function : Reads and transfers a portion of an ASCII string from one buffer 
to another by counting characters in the transferred field. 
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I/O 
ROUTINE: RDFLD (Continued) 

Entry: .RDF LP (Continued) 
Calling Sequence : 

(AC2 contains number of characters to be read) 

JSR®, RDFLD 

FORTRAN ADDRESS of "FROM" string byte pointer 
FORTRAN ADDRESS of "TO" string byte pointer 
abnormal return (character count retained in AC1) 
normal return 

(Both the "FROM" and "TO" string pointers are updated upon exit.) 
Entry: .RDFCH 

Function: Reads and transfers a portion of an ASCII string from one buffer to 
another by reading to a specified character. 

Calling Sequence: 

(AC2 contains the terminal field character. ) 

JSR ©.RDFCH 

FORTRAN ADDRESS of "FROM" string byte pointer 
FORTRAN ADDRESS of "TO" string byte pointer 
abnormal return (character count retained in AC1) 
normal return 

(Both the "FROM" and "TO" string pointers are updated upon exit. ) 



(1) Original contents of accumulators and carry are restored upon exit. 

(2) . RDFLD and . RDFCH must be referenced by . EXTD statements. RDFLD 
and RDFCH are FCALL entry points which must be referenced by . EXTN 
statements. 

(3) A fatal error message will be output on overflow of the "TO" buffer only 
if the last buffer location contains a word consisting of two ASCII rubouts, 
077577. FREAD will ensure that such a buffer terminator exists in every 
case where it issues a call to RDFLD or RDFCH. 

(4) Both RDFLD and RDFCH examine each character that is transferred. If 
a null is detected before the scheduled end of the field, a branch is made 
to the abnormal return. AC1 is then set to the number of characters 
(excluding the null) which were read and transferred before the branch. 

(5) If a r .rriage return or form feed character is detected by RDFLD, a 
branch will be made to the abnormal return location. 
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ROUTINE: READL 

Supporting Subroutines : FSAV, FRET, FCALL, OPEN; . STBT, . IOCA, 
.LDBT, .SOSW, .FARG 

Subroutine Size: 4 page zero locations and 304^ locations of normally relocatable 
memory. 

Entry: .WRITL 

Function: Performs line output of ASCII data strings on a FORTRAN channel. 

Calling Sequence: 



(ACO contains a byte pointer to the beginning of the output string. 
AC2 contains the FORTRAN logical channel number. ) 

JSR@. WRITL 

FORTRAN ADDRESS of format flag 

error return (System error code returned in AC2) 

normal return 



Notes: 



(1) The format flag is simply a one word flag used to indicate whether the data 
string will be output in free format or not. If the flag is nonzero, formatted 
output is indicated and a carriage return will be appended to the output string. 
If the flag is all zero, free format is indicated and a null will be appended to 
the end of the string. 

(2 ) If formatted output is indicated, the first character in the output string will 
be examined. If this character is ASCII 0, this zero will be replaced by a 
carriage return. If the first character is ASCII 1, it will be replaced by a 
form feed character. All other first characters which are neither ASCII 
nor 1 will be dropped from the output string. 

Entry: .WRTS 

Function: Performs line output of binary data strings on a FORTRAN channel. 



(ACO contains a byte pointer to the beginning of the output string. 
AC1 contains the number of bytes to be written. AC2 contains the 
FORTRAN logical channel number. ) 

JSR §. WRTS 

error return (System error code returned in AC2) 

normal return 

Entry: .READL 

Function: Performs line input of ASCII data strings on a FORTRAN channel. 
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I/O 



ROUTINE: READL (Continued) 

Entry: . READL (Continued) 

Calling Sequence : 

^ACO contains a b^te nointer to the be^innin 0- of the inrtut strin 0, 
buffer. AC2 contains the FORTRAN logical channel number.) 

JSR@. READL 

error return (System error code returned in AC2) 

normal return 

Entry: .REDS 

Function: Performs line input of binary data strings on a FORTRAN channel. 

C a iling Seque nc e : 

(ACQ contains a byte pointer to the beginning of the input string 
buffer. AC1 contains the number of bytes to be read. AC2 contains 
the FORTRAN logical channel number. ) 

JSR @.REDS 

error return (System error code returned in AC2) 

normal return 



Notes: 



(1) Contents of accumulators and carry are restored upon exit. 

(2) Leading nulls are ignored and a trailing null is recognized as a terminator 
under RDOS. 

(3) .WRITL, .WRTS, .READL, and . REDS must be referenced by . EXTD 
statements. 



---ROUTINE: RE ADR 



Supporting Subroutines: FRET, MPY, DVD; .CPYL, . IOC AT, . RTER 

Subroutine Size : No page zero locations and 76 locations of normally relocatable 
memory. 



Entry: READR 

Function: Reads a series of records from a file into an array. 
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I/O 



ROUTINE: RE ADR (Contineud) 



Entry: READR (Continued) 
Calling Sequence : 

FCALL 

READR 

Integer number of arguments, 5 or 6 

FORTRAN ADDRESS of FORTRAN channel number 

FORTRAN ADDRESS of the starting record number 

FORTRAN ADDRESS of array to receive records 

FORTRAN ADDRESS of number of records to be read 

FORTRAN ADDRESS of error code 

optional FORTRAN ADDRESS of byte count 

Entry: WRITR 

Function: Writes a series of records from an array into a file. 

Calling Sequence : 



Notes: 



FCALL 

WRITR 

Integer number of arguments, 5 or 6 

FORTRAN ADDRESS of FORTRAN channel number 

FORTRAN ADDRESS of the starting record number 

FORTRAN ADDRESS of array transmitting records 

FORTRAN ADDRESS of number of records to be written 

FORTRAN ADDRESS of error code 

optional FORTRAN ADDRESS of byte count 



(1) Accumulators and carry are restored on exit. 

(2) The starting record number is the logical (or relative) number of the 
block within the file to which writing will occur or which will be read. 
The first record within the file is logical record number 0, the second is 
lop-ical record mimher 1 , pi-r. 

(3) The routine performs sequential reads or writes by issuing RDOS system 
calls .RDSor .WRS. If a premature end -of -file is detected on a read, 
the routine returns a byte count for all bytes read during the call, and 
places this count in the FORTRAN ADDRESS of the byte count, if one is 
provided. No check is made to determine whether the size of the array is 
adequate. 

(4) The error code word will be set to one of the following states: 

- Indeterminate error 

1 - No error occurred 

3 . . .n - RDOS system error code +3 

If disk overflow occurs on a write, RDOS system error code ERSPC 
will be given. 

(5) READR and WRITR must be referenced by . EXTN statements. 
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I/O 



--- ROUTINE: WRCH 

Supporting Subroutines: FRET, FSAV; . LDBT, . COUT 

Subroutine Size: 1 page zero location and 15 locations of normally relocatable 
memory. 

Entry: .WRCH 

Fu nction: Prints a string of ASCII characters on a teletype printer. 

Calling Sequence : 

(ACO contains a hyfe pointer to the beginning of the byte string.) 

JSR i.WRCH 

(Upon exit from the routine, AC1 contains the number of characters 
in the string. ) 



Notes: 



(1) Accumulators and carry are restored on exit, except for AC1. The contents 
of AC1 will be as noted above. 

(2) .WRCH must be referenced by an . EXTD statement. The FCALL entry 
point, WRCH, must be referenced by an . EXTN statement. 

(3) ASCII characters in the string must be packed left to right, 2 characters 
per word. 
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MISCELLANEOUS FORTRAN SUPPORT ROUTINES 



CGT 18-3 

CHSAV 18-3 

FINIT J 8-4 

FOPEN If -5 

ITEST 18-6 

LE is-7 

P.TER Ig-7 

STOP 18-9 

THREAD 18-10 
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wiiac. r uk i t\j\i\ 
support 



ROUTINE: BSTRING 



Supporting Subroutines : .CPYL, FRET 

Subroutine Size: 63o locations of normally relocatable memory. 



Fptrw TOR ^m-nl 



Function: Inclusive OR where m and n designate arguments that are logically 
added, bit by bit. 

Calling Sequence: 

FCALL 

IOR 

N (number of arguments) 

FORTRAN address of result 

FORTRAN address of M 

FORTRAN address of N 



Entry: IAND (m, n) 



Function: Logical product where m and n designate arguments that are logically 
manipulated. 

Calling Sequence : 

FCALL 

IAND 

N (number of arguments) 

FORTRAN address of result 

FORTRAN address of M 

FORTRAN address of N 



Entry: NOT (m) 



Function: Logical complement where m designates an argument that is logically 
complemented. 

Calling Sequence : 

FCALL 

NOT 

N (number of arguments) 

FORTRAN address of result 

FORTRAN address of M 
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Misc. FORTRAN 
Support 



ROUTINE: BSTRING (Continued) 

Entry: IEOR (m,n) 

F unction: Exclusive OR where m and n designate arguments that are 
exclusively added. 

Calling Sequence : 

FCALL 

IEOR 

N (number of arguments) 

FORTRAN address of result 

FORTRAN address of M 

FORTRAN address of N 

Entry: ISHFT (m, n) 



Function: Shifts argument m, n positions. The direction of the shift is: 

n < shift right 
n = no shift 
n > shift left 



Calling Sequence: 

FCALL 

ISHFT 

N (number of arguments) 

FORTRAN address of result 

FORTRAN address of M 

FORTRAN address of N 
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ROUTINE: CGT 



Misc. FORTRAN 
Support 



Supporting Subroutines: FRET, FSAV; .RTER, .FRGL 

Subroutine Size: 1 page zero location and 23 locations of normally relocatable 
memory. 



Entrv: .CGT 



Function: Implements the FORTRAN "Computed GO TO" facility. 

Calling Sequence : 

JSR@.CGT 

N, the number of statement numbers which can be gone to 

FORTRAN ADDRESS of the non-subscripted integer variable V 

Effective address N, 

Effective address N2 

Effective address N 
n 



Notes: 



(1) Accumulators and carry are restored on exit. 

(2) .CGT must be referenced by an .EXTD statement. The FCALL entry, CGT, 
must be referenced by an . EXTN statement. 

(3) The above calling sequence is generated by the FORTRAN statement 

GOTO(n,,n.,.'..,n )V 
1 Z n 

(4) A fatal error message is generated if the integer variable V is less than 1 

or greater than N, and program control remains in the error message routine. 



ROUTINE: CHSAV 



Supporting Subroutines : FRET; .IOCAT, .RTER, .CPYL 

Subroutine Size: No page zero locations and 53 locations of normally relocatable 
memory. 



Entry: CHSAV 



Function: Saves the status of a FORTRAN channel to permit rereading or 
rewriting of FORTRAN records on disk. 

Calling Sequence : 

FCALL 

CHSAV 

2 

FORTRAN ADDRESS of logical channel number 

FORTRAN ADDRESS of 3 -word integer array for saved channel status data 
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Misc. FORTRAN 
Support 



ROUTINE: CHSAV (Continued) 
Entry: CHRST 



Notes: 



Function: Restores the original status of the channel after a call to CHSAV has 
been issued to permit rereading or rewriting of FORTRAN records on 
disk. 

Calling Sequence : 

FCALL 

CHRST 

2 

FORTRAN ADDRESS of logical channel number 

FORTRAN ADDRESS of 3 -word integer array containing previously 

saved channel status data. 



(1) Accumulators and carry are restored on exit. 

(2) A non-fatal error message is issued if the specified channel has not been 
opened. CHRST will also issue a non-fatal error message if an attempt is 
made to restore channel status information which was not previously saved 
in a call to CHSAV. 

(3) The status of more than one channel may be saved in the same array. 
For example, an array declared as I (3, 100) can be used to save up to 100 
blocks of channel status information. 

(4) The method of using this routine is to first save the status of a FORTRAN 
channel (CHSAV), issue anynumber of reads or writes, and then restore 
the original status of the channel (CHRST). Records processed between the 
status save and status restore operations may then be reread or rewritten. 



--- ROUTINE: FINIT 

Supporting Subroutines : FRET, FSAV; SUCOM 

Subroutine Size: 1 page zero location and 24 locations of normally relocatable 
memory. 

Entry: .FINI 

Function: Allocates unlabeled common storage. 

Calling Sequence : 

JSR @.FINT 

Absolute address of LI 

Absolute address of L2 

(LI and L2 are the first and last entries respectively in the blank 
common displacement table generated by the FORTRAN Compiler. 
The last entry in the table, L2, is zero unless blank common storage 
has been requested more than once.) 
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ROUTINE: FINIT (Continued) 
Notes : 

(1) Accumulators and carry are restored on exit. 

(2) . FINI must be referenced by an . EXTD statement. The FCALL entry 
point must be referenced by an . EXTN statement. 

(3) This routine is of limited usefulness to assembly language programmers 
and is only described here for completeness. 

Or\TTTT\TT7. PAHDM 



Notes: 



Supporting Subroutines : FRET, FSAV, IOPTR; .IOC AT, 
.SOSW 



.RTER, .CPYL, 



Subroutine Size: 1 page zero location and 123 locations of normally relocatable 
memory. 

Entry: . FOPEN 

Function: Opens a FORTRAN channel. 

Calling Sequence : 

JSR@. FOPEN 

Integer number of arguments - 2, 3, or 4 

FORTRAN ADDRESS of logical channel number 

FORTRAN ADDRESS of file name 

optional FORTRAN ADDRESS of binary specifier 

optional FORTRAN ADDRESS of random record byte length 

(The specified channel is now assigned to the named file.) 



(1) . FOPEN must be referenced by an . EXTD statement. The FCALL entry 
point FOPEN must be referenced by an . EXTN statement. 

(2) Up to 64 FORTRAN channel numbers are allowed. Channel numbers are 
represented by integer constants with values through 63 .. 

(3) The file name is an ASCII byte string terminated by a null byte. Similarly, 
the binary specifier is a single word ASCII byte string consisting of an ASCII 
B, left justified, followed by a null byte. If a binary specifier is given, the 
named file is opened with all particular device characteristics inhibited, such 
as a rubout character following a tab character output by a paper tape punch. 

(4) The random record length parameter, given only when random devices are 
selected, is an integer specifying the random record length in bytes. If the 
file does not exist, a file is created and then opened. This file is organized 
randomly under RDOS. 
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ROUTINE: ITEST 



Supporting Subroutines : FRET; .CPYL, .RTER 

Subroutine Size: No page zero locations and 50 locations of normally relocatable 

o 

memory. 



Entry: ITEST 

Function: Examines a bit in a 16-bit word; performs a logical AMD between the 

word to be examined and a bit mask, placing the result in the FORTRAN 
ADDRESS of the result. 

Calling Sequence : 

FCALL 

ITEST 

Integer 3 

FORTRAN ADDRESS of result 

FORTRAN ADDRESS of word to be examined 

FORTRAN ADDRESS of bit position indicator 

Entry: ISET 

Function: Sets a bit in a 16-bit word. 

Calling Sequence : 

FCALL 

ISET 

Integer 2 

FORTRAN ADDRESS of word with bit position to be set 

FORTRAN ADDRESS of bit position indicator 

Entry: ICLR 

Function: Clears a bit in a 16-bit word. 

Calling Sequence : 

FCALL 

ICLR 

Integer 2 

FORTRAN ADDRESS of word with bit position to clear 

FORTRAN ADDRESS of bit position indicator 

Notes: 

(1) Accumulators and carry are restored on exit. 

(2) The bit position indicator is an integer from to 15. The following bit 
position indicators cause the following bit positions to be acted on: 

Bit Position Bit Acted 

Indicator Upon 

Least significant bit 

15 Most significant bit 
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ROUTINE: LE 



Misc. FORTRAN 
Support 



Supporting Subroutines: FRET, FSAV 

Subroutine Size: 4 page zero locations and 76 locations of normally relocatable 
memory. 

Entry: .GT, .GE, . LT, . LE 

"~ ACO through AC2. 

Rl > R2 — GT 

Rl > R2 -- GE 

Rl< R2 -- LT 

Rl < R2 -- LE 
Calling Sequence : 

(The contents of the first register, Rl, is multiplied by 400.,, and the 
contents of the second register, R2, is added to that product. The product 
must be stored in the next sequential location following the call before 
issuing the call. ) 

JSR@.GT(.GE, .LT, . LE) 
CODE: 400 . * Rl + R2 

o 

(If it is true that (Rl) is greater than -- greater than or equal to, less 
than, or less than or equal to -- (R2), -1 is loaded into R2. Otherwise, 
is loaded into R2.) 



Notes: 



(1) Original states of all accumulators but AC3 and R2 are restored on exit, 
and the entry state of carry is also restored. 

(2) .GT, .GE, .LT, and . LE must all be referenced by . EXTD statements. 
The FCALL entry points GT, GE, LE, and LT must all be referenced by 

. EXTN statements. 

(3) No error messages are generated. 



ROUTINE: RTER 

Supporting Subroutines : FCALL, FERT1, FRET, FSAV, .BASC, .BDAS, 
. I; .WRCH, .OVFL, SP, .FSAV 

Subroutine Size: 3 page zero locations and 214 locations of normally relocatable 
memory. 

Entry: RTEO, RTER, RTES 

Function: Indicates that a run time error has occurred, either by specifying an 
error code (RTER) and the program counter contents, or by specifying 
an error code and the location from which a call was issued upon 
detection of an error (RTEO, RTES). In all cases, the message will 
specify whether the error is fatal or non fatal. 
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ROUTINE : RTER (Continued 

Entry: RTEO, RTER, RTES (Continued) 

Calling Sequence : 

(ACO set to called -from address.) 

ERROR CODE 
JSR@.RTE0 



Misc. FORTRAN 
Support 



Notes: 



(Latest entry in SP stack is the called -from address.) 

ERROR CODE 

JSR@.RTES 

ERROR CODE 
JSR §. RTER 

(The value of the program counter just prior to the call to . RTER will 
he printed, along with the appropriate error code.) 



(1) Accumulators and carry are restored on exit. 

(2) .RTER, .RTES, and .RTEO must be referenced by .EXTD statements. 

(3) .RTEO is used by the FLINK module, . RTES by the signed integer and 
single and double precision real arithmetic routines, and .RTER by the 
remainder of the run time routines. 

(4) The ERROR CODE word has the following structure: 

Bit Meaning 








Always 1 










1 




1 for fatal 


error, 


for 


non 


-fatal 


2- 


11 


Specific error code 






12 




Always 1 










13 


■14 


Always 










15 




Always 1 











(5) The specific error code will be converted to decimal and output by this 
routine. A list of all run time error codes is given in the FORTRAN Manual, 
Appendix B. The definition of the error code structure and mnemonic error 
code assignments are defined on the PARF tape. 

(6) The fixed values of bits zero, twelve, thirteen, fourteen, and fifteen cause 
all ERROR CODES to be effective skips. Thus the call to the error routine 
can be made conditional on the result of a skip test, skipping to the ERROR 
CODE if no error message should be output. The code will then be 
executed as an arithmetic /logical no load, skip instruction, skipping over the 
call to the error processing routine. 
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ROUTINE: RTER (Continued) 
Notes : (Continued) 

(7) The non -fatal error messages output by these routines are of the form 

RUNTIME ERROR NN AT LOC. xxxxxx, CALLED FROM LOC. yyyyyy 

wuere NN is the decimal run time errox code (a complete list of error codes 
is found in me FORTRAN IV User's Manual), xxxxxx is the NREL starting 
address of the subroutine detecting the error, yyyyyy is the address (+1) 
in the main program or user subroutine of the assembly language instruction 
causing the error. 

(8) Fatal error messages will be of the same form as non-fatal error messages 
with the specifier FATAL appended to the message. 

(9) All fatal error conditions cause program control to return to the Debugger 
(if it is loaded), or otherwise to the operating system. 

ROUTINE: STOP 

Supporting Subroutines: FSAV, FRET, FERTN; . WRCH 

Subroutine Size: 2 page zero locations and 52 locations of normally relocatable 
memory. 
Entry: . STOP 

Function: Implements the FORTRAN STOP function. 

Calling Sequence: 

JSR @. STOP 
TEXT 

(The message "STOP" is output on the TTY printer, then the text 
message is output with a terminating carriage return and control 
returns to the operating system. ) 

Entry: . PAUSE 

Function: Implements the FORTRAN PAUSE function. 

Calling Sequence : 

JSR ©.PAUSE 

TEXT 

NSI 

(The message "PAUSE" is output on the TTY printer, then the text 
message is output, followed by a carriage return. Control reverts 
to the operating system until any key is struck, when control then 
returns to the Next Sequential Instruction.) 
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ROUTINE: STOP (Continued) 



Misc. FORTRAN 
Support 



Notes: 



(1) Accumulators and carry are restored on exit. 

(2) .STOP and .PAUSE must be referenced by .EXTD statements. 

(3) If no text output is desired, a -1 should replace the text string in the calling 
sequence. 



ROUTINE: THREAD 

Supporting Subroutines: FSAV, FRET; .CPYARG 

Subroutine Size: 2 page zero locations and 44 locations of normally relocatable 

o 

memory. 

Entry: THREAD 

Function: Transfers the latest five word element of one fist to a second list. 

Calling Sequence : 

JSR ©.THREAD 

FORTRAN ADDRESS of "FROM" list pointer 

FORTRAN ADDRESS of "TO" list pointer 



Notes: 



(1) Contents of accumulators and carry are restored on exit. 

(2) No error messages are generated. 

(3) . THREAD must be referenced by an . EXTD statement. THREAD is an FCALL 
entry point and must be referenced by an . EXTN statement. 

(4) Each five word element of a list consists of a block of five sequential locations. 
The first location (i. e. , the one with the lowest core address) is the link word; 
the remaining four words are reserved for list data storage: 



LINK 



data 



data 



data 



List Element 



data 



Lists are variable in length, and list elements may be found in scattered 
locations throughout available core. The oldest member of a list has a LINK 
of zero; each successive list element has a LINK which points to the next 
earlier element. Finally, each list has a pointer to the most recent list 
element: 
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ROUTINE: THREAD (Continued) 
Notes: (Continued) 



Misc. FORTRAN 
Support 



List 
roiiliex 




LINK 




D 







,— w 


LINK 


- u 


LINK 


*. 






B 






C 





























+~ 


I.INK=0 


A 







(5) .THREAD takes the most recent element from one list, the "FROM" list, 
and attaches it to a second list, the "TO" list, where it then becomes the 
most recent entry in the list. 



Entry: .ALLOC 



Function: 



Notes: 



Examines a list and, if it is a null list, creates a five word element 
and transfers it to a second list. 



Calling Sequence : 



JSR@. ALLOC 

FORTRAN ADDRESS of "FROM" list pointer 

FORTRAN ADDRESS of "TO" list pointer 



(1) Contents of accumulators and carry are restored on exit. 

(2) No error messages are generated. 

(3) .ALLOC must be referenced by an .EXTD statement. ALLOC is an FCALL 
entry point and must be referenced by an . EXTN statement. 

(4) .ALLOC operates onJists such as those described above. .ALLOC first 
examines the FROM list pointer; if it is non-zero, then the list has at least 
one element, and .ALLOC calls . THREAD . If the pointer contains zero, 
then the FROM list is a null list. In this case, .ALLOC creates a five word 
list element, appending it to the stack frame of the routine (or . MAIN) which 
called .ALLOC . This new element is preserved by adjusting the caller's 
FLGT, and the new element is added to the TO list by .THREAD . 
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ARYSZ 19-3 

FALOC 19-3 

FREDI 19-4 

FSBR 19-5 
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Handlers 



ROUTINE: ARYSZ 

Supporting Subroutines : FRET, FSAV, MPYO 

Subroutine Size: 1 page zero location and 20 locations of normally relocatable 
memory. 

Entry: .ARYSZ 

Function: Determines the size of an array in terms of both elements in the array and 

core locations needed to contain the array. 
Calling Sequence : 

(ACO contains the starting address of the subscript bound specifier.) 

JSR @. ARYSZ 

(ACO contains the total number of elements in the array, and AC1 
contains the total number of words in the array. ) 

Notes : 

(1) Accumulators and carry are restored on exit. 

(2) . ARYSZ must be referenced by an .EXTD statement. The FC ALL entry 
point, ARYSZ, must be referenced by an . EXTN statement. 

(3) No error messages are generated. 
ROUTINE: FALOC 



Supporting Subroutines : FSAV, FRET; .CPYARG, .RTER, AFSE 

Subroutine Size: 1 page zero location and 34 locations of normally relocatable 

a 

memory. 

Entry: . FALOC 

Function: Allocates an array on a caller's stack. 

Calling Sequence : 

JSR @. FALOC 

FORTRAN ADDRESS of subscript bound specifier 

FORTRAN ADDRESS of array specifier 

Integer value of array size in words (not elements) 



Notes: 



(1) Accumulators and carry are restored upon exit. 

(2) . FALOC must be referenced by an . EXTD statement. 

(3) A fatal error message is generated if there is insufficient run time stack area 
for allocation of the array. 
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ROUTINE: FALOC (Continued) 
Notes: (Continued) 



(4) The caller's FLGT is adjusted to include array size so that newly created 
stack s will not overwrite the array. 

(5) The FCALL entry point, FALOC , must be referenced by an . EXTN statement. 



ROUTINE: FREDI 



Notes: 



Supporting Subroutines : FRET, FSAV, MPYO, .OFLO; AFSE, .CPYAR, 
.FRGL, QSP 

Subroutine Size: 1 page zero locationand 111 locations of normally relocatable 

o 

memory. 



Entrv: . FREDI 



Function: Permits the redefinition of array subscript values when arrays are 
passed as dummy arguments. 

Calling Sequence: 

JSR @.FRED 

FORTRAN ADDRESS of special subscript bound specifier (built by 

compiler) 

FORTRAN ADDRESS of area reserved for 3-word array specifier 

(A new three word specifier and subscript bound specifier are 
consutructed. The SBS is appended to the caller's stack. See 
Chapter 3. ) 



(1) Accumulators and carry are restored upon exit. 

(2) . FREDI must be referenced by an . EXTD statement. The FCALL entry point, 
FREDI, must be referenced by an . EXTN statement. 

(3) Upon stack overflow, the contents of the caller's FRTN are printed as an 
error message. 

(4) The call to FREDI is generated by FORTRAN statements of the general form 

SUBROUTINE TESTSUB (x.y.z.a, . . .) 

DIMENSION (x(i),y(m),z(n) ) 

(5) If there is insuffient run time stack area for the creation of a new SBS, a call 
is made to .OFLO . .OFLO is an entry in the FLINK module, used by FLINK 
to collapse run time stack frames to permit the issuing of a stack overflow 
message. Except for the FLINK subroutines, only FREDI needs to use the 

. OFLO entry. This is true because at run time only FSAV and FREDI 
allocate storage on the run time stack. 
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Notes: 
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Handlers 



--- ROUTINE: FSBR 



Supporting Subroutines : MPY; .MADO, .RTES, SP 

Subroutine Size: 2 page zero locations and 175 locations of normally relocatable 
memory. 



Entry: . FSUB 



Function: Calculates the effective address of an array element for the compiled 
program. 

Calling Seonence: 

u ± 

JSR @.FSUB 

Integer number of arguments 

FORTRAN ADDRESS of 3 word address specifier 

FORTRAN ADDRESS of result 

FORTRAN ADDRESS of subscript 1 

FORTRAN ADDRESS of subscript 2 

FORTRAN ADDRESS of last subscript 

(The effective address of the array element selected by the input 
subscript choices is placed in the FORTRAN ADDRESS of the result.) 



Entry: . FSBR 



Function: Calculates the effective address of an array element for subroutine 
FREAD in a formatted I/O entry. 

Calling Sequence : 

(ACO contains a pointer to FREAD argument list with ELEMENT 
DESCRIPTOR SEQUENCE = 1) 

JSR @. FSBR 

(The effective address of the selected array element is returned in 
AC1.) 



(1) Accumulators and carry are not restored on exit. 

(2) .FSBR and . FSUB must be referenced by . EXTD statements. 

(3) Subscript calculation errors will be flagged by a fatal error message. 
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CDTR 20-3 

CHSTS 20-3 

CHART 20-4 

DIR 20-5 

DULNK 20-6 

EQUIV 20 -'3 

FSPOL 20-7 

GCIN 20 -S 

GCOUT 20-9 

GDIR 20-9 

INIT 20-10 

MDIR 20-H 

RENAM 20-H 

RLSE 20-12 
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■-- ROUTINE: CDIR 



Device/Directory 
Maintenance 



Supporting Subroutines : FRET; .CPYL 

Subroutine Size : No page zero locations and 16 locations of normally relocatable 
memory. 

Entry: CDIR 

Function: Creates a subdirectory with a specified name. 

Calling Sequence : 

FCALL 

CDIR 

Integer 2 

FORTRAN ADDRESS of subdirectory name 

FORTRAN ADDRESS of error code 



Notes: 



(1) Accumulators and carry are restored on exit. 

(2) CDIR must be referenced by an . EXTN statement. 

(3) This routine issues the RDOS system call .CDIR . 

(4) Tlie name of the subdirectory to be created is an ASCII string. 

(5) The error code will be set to one of the following states: 

- Indeterminate error 

1 - No error occurred 

3. .. n - RDOS system error code + 3 



ROUTINE: CHSTS 



Supporting Subroutines : FRET; .CPYL, . IOC AT 

Subroutine Size: No page zero locations and 26 locations of normally relocatable 
memory. 



Entry: CHSTS 



Function: Returns a copy of the current directory status information for a 
file on a specified channel. 

Calling Sequence : 

FCALL 
CHSTS 
Jnteger 3 

FORTRAN ADDRESS of channel number 
FORTRAN ADDRESS of array to receive status information 
FORTRAN ADDRESS of error code 
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ROUTINE: CHSTS (Continued) 



Notes: 



(1) Accumulators and carry are restored on exit. 

(2) CHSTS must be referenced by an , EXTN statement. 

(3) This routine issues the RDOS system call CHSTS . 

(4) This routine differs from STAT in that it obtains the current directory status 
information for whatever file is open on the specified channel; STAT obtains 
status information about a specified file. The array size and definition are the 
same as those for STAT: 



Word 


Contents 


1 - 5 


File name 


o 


£LAieilSUUil 


7 


File attributes 


10 


Link access attributes 


11 


Number of the last block in the file 


12 


Number of bytes in the last block 


13 


Starting logical block address of the file (the 




random file index for random files) 


14 


Year/day last accessed 


15 


Year/day created 


16 


Hour /minute created 


17 


UFD temporary 


20 


UFD temporary 


21 


User count 


22 


DC T link 



(5) The error code is set to one of the following states: 

- Indeterminate error 

1 - No error occurred 

3 . . . n - RDOS system error code + 3 



ROUTINE: CPART 



Supporting Subroutines: FRET; .CPYL 

Subroutine Size : No page zero locations and 17 locations of normally relocatable 
memory. 



Entry: CPART 



Function: Creates a secondary partition and enters the name of the secondary 
partition in the primary partition's directory. 
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ROUTINE: CPART ( Continued) 
Entry: CPART (Continued) 
Calling Sequence : 



Notts' 



FCALL 

CPART 

Integer 3 

FORTRAN ADDRESS of name of secondary partition to be created 

FORTRAN ADDRESS of size of partition 

FORTRAN ADDRESS of error code 



(1) Accumulators and carry are restored on exit. 

(2) CPART must be referenced by an . EXTN statement. 

(3) The name of the secondary partition is an ASCII string. 

(4) The size of the secondary partition is the number of contiguous blocks in 
the partition. 

(5) This routine issues the RDOS system call . CPAR . 

(6) The error code will be set to one of the following states: 

- Indeterminate error 

1 - No error occurred 

3 . . . n - RDOS system error code + 3 

ROUTINE: DIR 

Supporting Subroutines : FRET; .CPYL 

Subroutine Size: No page zero locations and 16 locations of normally relocatable 

o 

memory. 

Entry: DIR 

Function: Defines a current default directory. 

Calling Sequence : 

FCALL 

DIR 

Integer 2 

FORTRAN ADDRESS of device name or directory name 

FORTRAN ADDRESS of error code 

Notes : 

(1) Accumulators and carry are restored on exit. 

(2) The device or directory name is an ASCII byte string. 
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ROUTINE: DIR (Continued) 
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Maintenance 



Notes : (Continued) 

(3) This routine issues the RDOS system call . DIR . 

(4) The error code word will be set to one of the following states: 

- Indeterminate error 

1 - No error occurred 

3 . . . n - RDOS system error code + 3 

--- ROUTINE: DULNK 

Supporting Subroutines: FRET; .CPYL 

Subroutine Size: No page zero locations and 16 locations of normally relocatable 

" o 

memory. 

Entry: DULNK 

Function: Deletes a link entry in the current directory. 

Calling Sequence : 

FCALL 

DULNK 

Integer 2 

FORTRAN ADDRESS of link entry name 

FORTRAN ADDRESS of error code 

Notes : 

(1) Accumulators and carry are restored on exit. 

(2) DULNK must be referenced by an . EXTN statement. 

(3) This routine issues the RDOS system call .ULNK . 

(4) The error code is set to one of the following states: 

- Indeterminate error 

1 - No error occurred 

3 . . . n - RDOS system error code + 3 

--- ROUTINE: EQUIV 

Supporting Subroutines : FRET; .CPYL 

Subroutine Size: No page zero locations and 20 locations of normally relocatable 
memory. 

Entry: EQUIV 

Function: Assigns a temporary name to the master file device. 
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ROUTINE: EQUIV (Continued) 

Entry: EQUIV (Continued) 

Calling Sequence : 

FCALL 

EQUIV 

Integer 3 

FORTRAN ADDRESS of master file device name 

FORTRAN ADDRESS of temporary name 

FORTRAN ADDRESS of error code 

Notes : 

(1) Accumulators and carry are restored on exit. 

(2) EQUIV must be referenced by an . EXTN statement. 

(3) This routine issues the RDOS system call . EQIV . 

(4) The error code will be set to one of the following states: 

- Indeterminate error 

1 - No error occurred 

3 . . . n - RDOS system error code + 3 

--- ROUTINE: FSPOL 

Supporting Subroutines : FRET; .CPYL 

Subroutine Size: No page zero locations and 36 locations of normally relocatable 
memory. 

Entry: SPEBL 

Function: Enables spooling on a specified device. 

Calling Sequence : 

FCALL 

SPEBL 

Integer 2 

FORTRAN ADDRESS of device name 

FORTRAN ADDRESS of error code 

Entry: SPDIS 

Function: Disables spooling on a specified device. 

Calling Sequence : 

FCALL 

SPDIS 

Integer 2 

FORTRAN ADDRESS of device name 

FORTRAN ADDRESS of error code 
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ROUTINE: FSPOL (Continued) 

Entry: SPKIL 

Function: Stops a spooling operation which is currently in progress. 

Calling Sequence : 

FCALL 

SPKIL 

Integer 2 

FORTRAN ADDRESS of device name 

FORTRAN ADDRESS of error code 



Notes: 



(1) Accumulators and carry are restored on exit. 

I~?\ SPPP.T SPOTS anrf SPfll mnot all ho roforoivevl Vm BYTM oWomonfc 

(3) This routine issues the RDOS system calls .SPEA , .SPDA , and .SPKL . 

(4) The error code will be set to one of the following states: 

- Indeterminate error 

1 - No error occurred 

3 . . . n - RDOS system error + 3 

--- ROUTINE: GCIN 

Supporting Subroutines : FRET; .CPYL 

Subroutine Size : No page zero locations and 10 locations of normally relocatable 
memory. 

Entry: GCIN 

Function: Obtains the name of the current console input device. 

Calling Sequence : 

FCALL 

GCIN 

Integer 1 

FORTRAN ADDRESS of array to receive name 

Notes : 

(1) Accumulators and carry are restored on exit. 

(2) GCIN must be referenced by an . EXTN statement. 

(3) This routine issues the RDOS system call .GCIN . 

(4) No error messages are generated. 
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ROUTINE: GCOUT 

Supporting Subroutines : FRET; .CPYL 

Subroutine Size: No page zero locations and JO locations of normally relocatable 
memory. 

Entry: GCOUT 

Function: Obtains the name of die current console output device. 

Calling Sequence : 

FCALL 

GCOUT 

Integer 1 

FORTRAN ADDRESS of array to receive device name 

Notes : 

(1) Accumulators and carry are restored on exit. 

(2) GCOUT must be referenced by an . EXTN statement. 

(3) This routine issues the RDOS system call .GCOUT . 

(4) No error messages are issued. 
ROUTINE: GDIR 



Supporting Subroutines: FRET; .CPYL 

Subroutine Size: No page zero locations and 16 locations of normally relocatable 
memory. 

Entry: GDIR 

Function: Gets the name of the current default directory /device. 

Calling Sequence : 

FCALL 

GDIR 

Integer 2 

FORTRAN ADDRESS of array to receive name 

FORTRAN ADDRESS of error code 



Notes: 



(1) Accumulators and carry are restored on exit. 

(2) GDIR must be referenced by an . EXTN statement. 

(3) This routine issues the RDOS system call .GDIR . 

(4) The array to receive the current default directory /device name must be large 
enough to accomodate 13 bytes. 
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Device/Directory 
Maintenance 



ROUTINE: GDIR (Continued) 
Notes : (Continued) 

(5) The error code will be set to one of the following states: 

- Indeterminate error 

1 - No error occurred 

3 . . . n - RDOS system error code + 3 

--- ROUTINE: INIT 

Supporting Subroutines : FRET; .CPYL 

Subroutine Size: No page zero locations and 17 locations of normally relocatable 

o 

memory. 

Entry: INIT 



Calling Sequence : 



Notes: 



INIT 

integer 3 

FORTRAN ADDRESS of device name 

FORTRAN ADDRESS of mode indicator 

FORTRAN ADDRESS of error code 



(1) Accumulators and carry are restored on exit. 

(2) INIT must be referenced by an . EXTN statement. 

(3) This routine issues the RDOS system call .INIT . 

(4) The mode indicator is one of the following values: 

1 - Partial initialization with overlays 
- Partial initialization 
- 1 - Full initialization 

(5) The error code is set to one of the following states: 

- Indeterminate error 

1 - No error occurred 

3 . . . n - RDOS system error code + 3 

(6) Only full or partial initialization is permitted on magnetic tape transports. 
Full initialization causes a tape to be rewound and two end -of -file characters 
to be written. Partial initialization simply rewinds the tape and resets the 
tape file pointer to file zero. 

(7) The device name is an ASCII string consisting of a valid string mnemonic 
for either a disk or magnetic tape transport and is terminated by a null byte. 
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■ROUTINE: MDIR 



Device/Directory 
Maintenance 



Supporting Subroutines : FRET; .CPYL 

Subroutine Size: No page zero locations and 16 locations of normally relocatable 
memory. 

Entry: MDIR 

Function: Obtains the logical name of the current master device. 

Calling Sequence : 

FCALL 

MDIR 

Integer 2 

FORTRAN ADDRESS of array to receive name 

FORTRAN ADDRESS of error code 

Notes : 

(1) Accumulators and carry are restored on exit. 

(2) MDIR must be referenced by an . EXTN statement. 

(3) This routine issues the RDOS system call . MDIR . 

(4) The error code will be set to one of the following states: 

- Indeterminate error 

1 - No error occurred 

3 . . . n - RDOS system error code + 3 

-- ROUTINE: RENAM 

Supporting Subroutines : FRET; .CPYL 

Subroutine Size : No page zero locations and 20 locations of normally relocatable 
memory. 

Entry: RENAM 

Function: Renames a disk file. 

Calling Sequence : 



Notes: 



FCALL 

RENAM 

Integer 3 

FORTRAN ADDRESS of old name string 

FORTRAN ADDRESS of new name string 

FORTRAN ADDRESS of error code 



(1) Accumulators and carry are restored on exit. 
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DUTINE: RE NAM (Continued) 



Device/Directory 
Maintenance 



Notes : (Continued) 

(2) RENAM must be referenced by an . EXTN statement. 

(3) This routine issues the RDOS system call .RENAM . 

(4) The error code will be set to one of the following states: 

- Indeterminate error 

1 - No error occurred 

3 . . . n - RDOS system error code + 3 

(5) Each name string is an ASCII byte string terminated by a carriage return, 
null, form feed, or space. 

ROUTINE: RLSE 

Supporting Subroutines : FRET; .CPYL 

Subroutine Size: No page zero locations and 16 locations of normally relocatable 

o 

memory. 

Entry: RLSE 

Function: Releases a previously initialized device or directory from the system. 

Calling Sequence : 

FCALL 

RLSE 

Integer 2 

FORTRAN ADDRESS of device or directory name 

FORTRAN ADDRESS of error code 

Notes : 

(1) Accumulators and carry are restored on exit. 

(2) RLSE must be referenced by an . EXTN statement. 

(3) This routine issues the RDOS system call . RLSE . 

(4) The device name is an ASCII byte string terminated by a carriage return, 
null, form feed, or space. 

(5) The error code word will be set to one of the following states: 

- Indeterminate error 

1 - No error occurred 

3 . . . n - RDOS system error code + 3 
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FOVLD 21-3 

FOVLY . . ............ 21-3 

OVEXT 21-5 

OVKIL 21-6 
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I Overlay 



ROUTINE: FOVLD 

Supporting Subroutines: FRET; .CPYA, .IOCAT 

Subroutine Size: No page zero locations and 46 locations of normally relocatable 

memory. 

Entry: FOVLD 

Function: T/iads a FORTRAN nverlav into an nverlav area in a sinp-lp fast 
environment. 

Calling Sequence : 

FCALL 

FOVLD (orOVLOD) 

Integer 4 

FORTRAN ADDRESS of channel number on which overlay has been 

opened. 

Overlay number 

FORTRAN ADDRESS of conditional load flag 

FORTRAN ADDRESS of error code 

Notes : 

(1) Accumulators and carry are restored on exit. 

(2) OVLOD and FOVLD are equivalent and must be referenced by . EXTN 
statements. 

(3) The overlay file which is specified must have been previously opened by a 
call to OVOPN. The overlay number parameter contains the overlay area 
number in its left byte and the overlay number in its right byte. This 
number must have been declared either by an .ENTO pseudo-op or in a 
FORTRAN OVERLAY statement. 

(4) If the conditional load flag is zero, overlay loading is to be done unconditionally; 
if non-zero, overlay loading is to be done conditionally. Refer to Chapter4. 

(5) The error code word will be set to one of the following states: 

- Indeterminate error 

1 - No error occurred 

3...n - RDOS System error code + 3 



-- ROUTINE: FOVLY 

Supporting Subroutines : FRET, TOVLD, TOVRL; .CPYL, .IOCA 
Subroutine Si ze: 45 locations of normally relocatable memory. 

o 

Entry: FOVLD 

Function: Loads a FORTRAN overlay into an overlay area in a multitask 
environment. 
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l 
Overlay 



ROUTINE: FOVLY (Continued) 
Entry: FOVLD (Continued) 
Calling Sequence : 



Notes: 



FCALL 

FOVLD 

Integer 4 

FORTRAN ADDRESS of the channel number upon which the overlay 

file has been opened 

Overlay number (overlay name may be used if previously declared in 

an . ENTO or OVERLAY statement) 

FORTRAN ADDRESS of the conditional load flag 

FORTRAN ADDRESS of the error code 



(1) Accumulators and carry are restored on exit. 

(2) The overlay file which is to be used must have been opened previously by a 
call to OVOPN. The overlay number is a word which contains the overlay 
area number in its left byte and the overlay number in its right byte. This 
number must have been declared in . ENTO or OVERLAY statement. 

(3) The conditional load flag is a word which is set to zero if overlay loading is 
to be done unconditionally; a nonzero value indicates that overlay loading is 
to be done conditionally. 

(4) In conditional loading, if the overlay area is free the overlay is loaded (unless 
it is already core resident, in which case return is made directly to the Task 
Scheduler). An area is considered to be free if the overlay use count of the 

' currently resident overlay has gone to zero and if the area has been released 
by the FOVRL call. 

(5) In unconditional loading, if an area is free the requested overlay is loaded 
regardless of whether it is currently core resident or not. If the area is not 
free, the caller is suspended until the area is released. Consult the RDOS 
User's Manual for more information about conditional and unconditional loading. 

(6) The error code word will be set to one of the following states: 

- Indeterminate error 

1 - No error occurred 

2 - System action in progress 

3 . . . n - RDOS System error code + 3 

(7) This routine is found in the FORTRAN multitask library. To cause this routine 
to be loaded (instead of FOVLD, the single task overlay load module, the 
multitask library must precede the RDOS FORTRAN library when relocatable 
loading is performed. 

Entry: FOVRL 

Function: To release an overlay area. 
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Overlay 



Entry: FOVRL (Continued) 
Calling Sequence : 



FCALL 
cnvp T 



Notes: 



Integer 2 

Overlay number (overlay name may be used if previously declared in 

an . ENTO or OVERLAY statement) 

FORTRAN ADDRESS of the error code 



(1) Accumulators and carry are restored upon exit. 

(2) Same as (2) for FOVLD. 

(3) This call should be issued each time a user completes his use of a given overlay, 
in order to decrement the overlay use count. When no users remain who wish 

to use the currently resident overlay, the overlay use count goes to zero and 
the overlay area becomes free for the loading of other overlays. 

(4) This call must not be issued from within the overlay area which is to be 
released. 

(5) The error code word will be set to one of the following states: 

- Indeterminate error 

1 - No error occurred 

3 . . . n - RDOS system error code + 3 



ROUTINE: OVEXT 



Supporting Subroutines: FRET, TOVRL; .CPYL, .RTER 

Subroutine Size: No page zero locations and 22 locations of normally relocatable 
memory. 



Entry: OVEXT 



Notes: 



Function : Releases an overlay from the routine in which the overlay is named 
in an OVERLAY statement and provides a return location. 

Calling Sequence : 

FCALL 

OVEXT 

Integer 2 

FORTRAN ADDRESS of Overlay Name 

FORTRAN ADDRESS of Return 



OVEXT must be referenced by an . EXTN statement. 
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ROUTINE: OVEXT (C on tinued ) 
Entry: OVEXX 

Function: Releases an overlay from a routine outside that in which the overlay 
' was named in an OVERLAY statement and provides a return location. 

Calling Sequence : 

FCALL 

OVEXX 

Integer 2 

FORTRAN ADDRESS of Overlay Name 

FORTRAN ADDRESS of Return 

Notes : 

OVEXX must be referenced by an . EXTN statement. 

--- ROUTINE: OVKIL 

Supporting Subroutines : FRET, KILL, TOVRL; .CPYL, . RTER 

Subroutine Size: No page zero locations and 20 locations of normally relocatable 
memory. 

Entry: OVKIL 

Function: Releases an overlay from within the routine in which the overlay was 
named ul a n OVERLAY statement; also causes the task containing the 
overlay to be killed. 

Calling Sequence : 

FCALL 

OVKIL 

Integer 1 

FORTRAN ADDRESS of Overlay Name 



Notes : 

(1) OVKIL causes the task issuing the call to be killed. 

(2) OVKIL must be referenced by an . EXTN statement. 
Entry: OVKIX 

Function: Releases an overlay from a routine outside that in which the overlay 
_ ^^ n amed ^ an OVERLAY statement; also causes the task containing 
the overlay to be killed. 
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ROU i IKE : OVK IL (Continued) 
Entry: OVKIX (Continued) 
Calling Sequence : 
FCALL 

kj v iviyv 

Integer 1 

FORTRAN ADDRESS of Overlay Name 

(Control returns to the FORTRAN Task Scheduler) 

Notes : 

OVKIX must be referenced by an . EXTN statement. 
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TASK ROUTINES 



ABORT "-a 

ASSOC 22-3 

CHNGE 22-4 

FACAL 22-4 

FDELY 22-6 

FPEND 22-7 

FPRI . . . - , = = = = = = = = = = = - - 22-7 

FQTAS 22-8 

FTASK 22-9 

HOLD 22-10 

IOPC 22-11 

ITASK 22-12 

RELSE 22-12 

START 22-13 

STTSK 22-14 

TRNON 22-15 
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Pask 



ROUTINE: ABORT 

Supporting Subroutines : FRET, KTID; . CPYL 

Su broutine Size: 15 locations of normally relocatable memory 

o 

Entry: ABORT 



Calling Sequence : 
FCALL 



Notes: 



Integer 2 

FORTRAN ADDRESS of i.d. number 

FORTRAN ADDRESS of error code 



(1) Accumulators and carry are saved in the caller 's TCB unless it is the 
caller who is killed. 

(2) ABORT must be referenced in an . EXTN statement. 

(3) The calling task itself may be killed by this call. 

(4) The TCB which is removed from the active queue is placed in the free element 
TCB chain. If the specified task is suspended due to an outstanding . SYSTM 
call, it is killed as soon as the .SYSTM call is completed. 

(5) If no task exists with the specified i.d. number, no action is taken and control 
goes to the scheduler. 



ROUTINE: ASSOC 



Supporting Subroutines: CTASK, FRET, FRCAL, TPEND; .CPYL 

Subroutine Size: No page zero locations and 65 locations of normally relocatable 
memory. 



Entry: ASSOC 



Function: Associates a unique i.d. with a FORTRAN task, without activating 
the task. 

Calling Sequence : 

FCALL 

ASSOC 

Integer 4 or 5 

FORTRAN ADDRESS of task name 

FORTRAN ADDRESS of i.d. 

FORTRAN ADDRESS of priority 

FORTRAN ADDRESS of error code 

optional FORTRAN ADDRESS of no -stack flag 
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ROUTINE: ASSOC (Continued) 
Notes : 

(1) Accumulators and carry are restored on exit. 

(2) ASSOC must be referenced by an . EXTN statement. 

(3) The specified task is associated with the specified i.d. and put into the suspended 
state. 

ROUTINE: CHNGE 

Supporting Subroutines: FRET, TCHNG; .CPYL 

Subroutine Size: 16„ locations of normally relocatable memory. 

— — 8 

Entry: CHNGE 

Function: Changes the priority of a task specified by i.d. 

Calling Sequence: 

FCALL 

CHNGE 

Integer 3 

FORTRAN ADDRESS of i.d. 

FORTRAN ADDRESS of new priority 

FORTRAN ADDRESS of error code 



Notes: 



(1) Accumulators and carry are restored on exit. 

(2) CHNGE must be referenced by an .EXTN statement. 

(3) The error code is set to one of the following states: 

- Indeterminate error 

1 - No error occurred 

3 . . . n - RDOS system error code + 3 

ROUTINE: FACAL 

Supporting Subroutines: FRET, TAKIL, TAPEN, TAUNP; .CPYL 
Subroutine Size: 22 locations of normally relocatable memory. 

■ o 

Entry: ASUSP 

Function: Suspends all tasks of a given priority. 
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ROUTINE: FACAL (Continued) 

Entry: ASUSP (Continued) 

Calling Sequence : 

FCALL 

ASUSP 

Integer 1 

FORTRAN ADDRESS of the task priority 

(Control returns to the FORTRAN Task Scheduler. ) 

Notes : 

(1) Accumulators and carry are saved in the caller's TCB. 

(2) ASUSP must be referenced by an . EXTN statement. 

(3) The calling task may itself be suspended by this command. 

(4) The suspended tasks can be readied only by an ARDY command. 

(5) If no tasks exist at the given priority, this call is an effective no-op. 
Entry: ARDY 

Function: Readies all tasks of a given priority. 

Calling Sequence : 

FCALL 
ARDY 

FORTRAN ADDRESS of the Task Priority 

(Control returns to the FORTRAN Task Scheduler. ) 

Notes : 

(1) Accumulators and carry are saved in the caller's TCB. 

(2) ARDY must be referenced by an . EXTN statement. 

(3) This command unconditionally readies all tasks of a given priority. It is the 
caller's responsibility to insure that the tasks to be readied are not awaiting 
the occurrence of some other event, such as I/O completion. 

Entry: AKILL 

Function: Deletes all tasks of a given priority. 

Calling Sequence: 

FCALL 

AKILL 

Integer 1 

FORTRAN ADDRESS of the task priority 

(Control returns to the FORTRAN Task Scheduler.) 
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ROUTINE: FACAL (Continued) 



Notes: 



(1) Accumulators and carry are saved in the caller's TCB (unless the caller is 
also deleted). 

(2) AKILL must be referenced by an . EXTN statement. 

(3) The calling task itself may be deleted by this command. 

(4) All TCB's that are removed from the active queue are placed in the free element 
TCB chain. 

(5) If a task to be deleted is already suspended (as when the task is waiting for 
completion of a system call) it will be killed as soon as it becomes ready. 

(6) If no task exists at the given priority level, this call is an effective no-op and 
control goes to the Scheduler. 

ROUTINE: FDELY 

Supporting Subroutines : FRET; .CPYL 

Subroutine Size: 1 page zero location and 7 normally relocatable locations. 
Entry: FDELY 

Function: Suspends a FORTRAN task for a specified period of time. 
Calling Sequence : 

FCALL 

FDELY 

Integer 1 

FORTRAN ADDRESS of time interval 

(Control returns to the FORTRAN Task Scheduler.) 



(1) Accumulators and carry are stored in the caller's TCB. 

(2) FDELY must be referenced by an . EXTN statement. 

(3) The time interval word indicates the number of real time clock pulses during 
which the task will be suspended. (The real time clock frequency was set at 
SYSGEN time.) 
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J 



ROUTINE: FPEND 

Supporting Subroutines : FRET, TPEND; .CPYL 

Subroutine Size: 5 locations of normally relocatable memory. 

Entry: SUSP 

Function: Suspends the calling task. 

Calling Sequence : 

FCALL 

SUSP 



(Control returns to the FORTRAN Task Scheduler.) 

Notes : 

(1) Accumulators and carry are saved in the caller's TCB. 

(2) SUSP must be referenced by an . EXTN statement. 

(3) The suspended task remains suspended until it is readied by an ARDY or 
RELSE call. 

Entry: PEND 

Equivalent to FPEND 

• ROUTINE: FPRI 



Supporting Subroutines : FRET, TPRI; .CPYL 

Subroutine Size: 6 words of normally relocatable memory. 

Entry: PR I 

Function: To change the priority of the calling task. 

Calling Sequence : 

FCALL 

PRI 

Integer 1 

FORTRAN ADDRESS of the new task priority 

(Control returns to the FORTRAN Task Scheduler. ) 
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ROUTINE: FPRI (Continued) 



Notes: 



(1) Accumulators and carry are saved in the caller's TCB. 

(2) PRI must be referenced by an . EXTN statement. 

(3) The calling task is assigned the lowest priority of all tasks within the new 
priority level. 

(4) It is permissible to issue a PRI command without changing the caller's present 
priority level. This will cause the calling task to be assigned the lowest priority 
of all tasks within its priority level. 

ROUTINE: FQTAS 

Supporting Subroutines: FRET, TQTSK; .CPYL 

Subroutine Size: 51. locations of normally relocatable memory. 
— y 

Entry: FQTAS 

Function: Loads a user overlay and periodically executes a task within the overlay, 
or periodically executes a core -resident task. 

Calling Sequence: 

FCALL 

FQTAS 

Integer number of arguments, 4 or 5 

Overlay number or dummy argument 

FORTRAN ADDRESS of task entry point 

FORTRAN ADDRESS of task queue array 

FORTRAN ADDRESS of error code 

optional FORTRAN ADDRESS of task descriptor 

(Control returns to the FORTRAN Task Scheduler. ) 



Notes: 



(1) Accumulators and carry are saved in the caller's TCB. 

(2) The first argument is either an overlay number (not the FORTRAN ADDRESS of 
an overlay number) in the case of an overlay task, or a dummy argument in the 
case of a core resident task. The overlay number is a word which contains the 
overlay area number in its left byte and the overlay number in its right byte. 

(3) The task entry point is the entry point within either the overlay or the core 
resident task where program control is to begin execution; this point must have 
been globally ENTered. 
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ROUTINE: FQTAS (Continued) 

Notes: (Continued) 



(4) The task queue array is a 13g word integer array, supplied by a user, whose 
elements contain the following parameters and whose displacements are given 
the following mnemonic assignments: 

DisDlacement Contents 



QPC Used by the system 

QNUM Number of times to execute task 

QTOV Used by the system 

DSH Start-incr hour of task execution 

QSMS Starting second within hour QSH 

QPRI Task priority 

QRR Rerun increment in seconds 

QTLNK Used by system 

QOCH Overlay channel number (dummy for core resident tasks) 

QCOND Overlay conditional load flag (dummy for core resident tasks) 

QCOND+1 Task i.d. number 

(5) The error code will be set to one of the following states: 

- Indeterminate error 

1 - No error occurred 

3 . . . n - RDOS system error code + 3 

(6) The last parameter (task descriptor) is optional. A -1 indicates that the task 

is core resident and no overlay load is necessary. -2 indicates that no FORTRAN 
Run Time Stack is necessary. -3 indicates both that the task is core resident and 
that no stack is needed. 

(7) FQTASK must be referenced in an . EXTN statement. 



--- ROUTINE: FTASK 

Supporting Subroutines : CTASK, FRET; .CPYL 

Subroutine Size: 26 locations of normally relocatable memory. 

8 

Entry: FTASK 

Function: Initiates a task in a real-time FORTRAN environment. 



Calling Sequence : 



FCALL 

FTASK 

Integer 3 or 4 

FORTRAN ADDRESS of Task Entry Point 

FORTRAN ADDRESS of Error Return 

FORTRAN ADDRESS of Task Priority 

optional FORTRAN ADDRESS of no -stack flag 

(Control returns to the FORTRAN Task Scheduler.) 
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ROUTINE: FTASK (Continued) 



Notes: 



(1) Accumulators and carry are stored in the caller's TCB. 

(2) FTASK must be referenced by an . EXTN statement. 

(3) When the RT FORTRAN program is loaded and first run, only one task exists. 
This command must be issued to create a multitask environment. 

(4) The error return is taken if there are no TCBs available, which occurs if the 
maximum number of tasks specified in CHANT ASK was too small. 

(5) A non-zero argument for the optional no-stack flag indicates that no FORTRAN 
stack is required. 



ROUTINE: HOLD 

Supporting Subroutines : FRET, STID; .CPYL 

Subroutine Size: 15 locations of normally relocatable memory. 

" o 

Entry: HOLD 

Function: To suspend a task with a specified i.d. number. 
Calling Sequence : 

FCALL 

HOLD 

Integer 2 

FORTRAN ADDRESS of i.d. number 

FORTRAN ADDRESS of error code 



Notes: 



(1) Accumulators and carry are saved in the caller's TCB. 

(2) HOLD must be referenced by an . EXTN statement. 

(3) This call sets bit 1 of the task's priority and status word, TPRST. Thus if the 
task is already suspended, it becomes doubly suspended and can be readied only 
when all its suspend bits have been set to ready. 

(4) The error code word will be set to one of the following states: 

- Indeterminate error 

1 - No error occurred 

3 . . . n - RDOS system error code + 3 
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ROUTINE: IOPC 

Supporting Subroutines : FRET, .CPYL, PCTMP, TERCM, TIOPC, 
TMAX2, TSAVE 

Subroutine Size: 134„ locations of normally relocatable memory. 
Entry: IOPC 

Function: To initialize the OPCOM package. 



Calling Sequence : 

FCALL 
IOPC 

FORTRAN address of program array 
FORTRAN address of number of programs 
FORTRAN address of queue array 
FORTRAN address of number of queues 
FORTRAN address of overlay channel 
FORTRAN address of error 



Notes: 



(1) One TCB must be reserved for the OPCOM package. 

(2) When running without a program table (IOPROG) set the first five arguments 
to zero. 

(3) IOPC may be called more than once. Additional calls will remove the previous 
program array. A new array must be given for each call. 



Entry: IOPROG 



F unction: To build a program table of task information for reference by 
the OPCOM commands RUN and QUE. 



Calling Sequence : 

FCALL 
IOPROG 

FORTRAN address of program name 
FORTRAN address of program number 
FORTRAN address of task identifier 
FORTRAN address of task priority 
FORTRAN address of overlay node /number 
FORTRAN address of conditional load . 
FORTRAN address of error * 

FORTRAN address of ASM 
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--- ROUTINE: IT ASK 



Supporting Subroutines : CTASK, FRET; .CPYL 

Subroutine Size: 36. locations of normally relocatable memory 
o 

Entry: IT ASK 

Function: Initializes a task in a real-time FORTRAN environment and assigns a 
unique i.d. to the task. 

Calling Sequence : 

FCALL 

ITASK 

Integer 4 or 5 

FORTRAN ADDRESS of Task Entry Point 

FORTRAN ADDRESS of Task I. D. 

FORTRAN ADDRESS of Task Priority 

FORTRAN ADDRESS of Error Code 

optional FORTRAN ADDRESS of no -stack flag 

(Control returns to the FORTRAN Task Scheduler. ) 

Notes : 

(1) Accumulators and carry are stored in the caller's TCB. 

(2) ITASK must be referenced in an . EXTN statement. 

(3) A non-zero argument for the optional no -stack flag indicates that no FORTRAN 
stack is required. 

(4) The error code word will be set to one of the following states: 

- Indeterminate error 

1 - No error occurred 

3 . . . n - RDOS system error code + 3 

ROUTINE: RELSE 

Supporting Subroutines : FRET, RTID; .CPYL 

Subroutine Size: 15_ locations of normally relocatable memory. 
o 

Entry: RELSE 

Function: To ready a task with a specified i.d. number. 

Calling Sequence : 

FCALL 

RELSE 

Integer 2 

FORTRAN ADDRESS of i.d. number 

FORTRAN ADDRESS of error code 
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ROUTINE: RELSE (Continued) 



Notes: 



(1) Accumulators and carry are saved in the caller's TCB. 

(2) RELSE must be referenced in an . EXTN statement. 

(3) This call resets bit 1 of the task's priority and status field word, TPRST. If 
the task has bits and/or 12 set as the result of an outstanding .SYS I'M call 
or a REC/XMTW, these bits would also have to be reset before the task could 
be readied. 

(4) The error code word will be set to one of the following states: 

- Indeterminate error 

1 - No error occurred 

3 . . .n - RDOS system error code + 3 

ROUTINE: START 

Supporting Subroutines : FRET, DVD, MPY; .CPYL 

Subroutine Size: No page zero locations and 114 locations of normally relocatable 
memory. 

Entry: START 

Function: Starts a task after a specified delay. 

Calling Sequence : 

FCALL 

START 

Integer 4 

FORTRAN ADDRESS of task i.d. 

FORTRAN ADDRESS of delay 

FORTRAN ADDRESS of unit code 

FORTRAN ADDRESS of error code 1 



Notes: 



(1) Accumulators and carry are restored on exit. 

(2) START must be referenced by an . EXTN statement. 

(3) The delay is an integer variable or constant which specifies the length of 
time of the delay in units. 

(4) The unit code is one of the following: 

- pulse of RTC 

1 - milliseconds 

2 - seconds 

3 - minutes 

(5) The error code is set to zero on input of an illegal unit code or if there is no 
clock in the system. 
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ROUTINE: STTSK 

Supporting Subroutines : FRET, TIDST; .CPYL 

Subroutine Size: IT locations of normally relocatable memory. 

— o 

Entry: STTSK 

Function: To obtain the status of a task with a specified i.d. number. 

Calling Sequence : 

FCALL 

STTSK 

Integer 3 

FORTRAN ADDRESS of i.d. number 

FORTRAN ADDRESS of location to receive task status code 

FORTRAN ADDRESS of error code 



Notes: 



(1) Accumulators and carry are saved in the caller's TCB. 

(2) SSTSK must be referenced in an . EXTN statement. 

(3) The task status code will be one of the following: 

- Ready 

1 - Suspended by a . SYSTM call 

2 - Suspended by SUSP, ASUSP, or HOLD 

3 - Waiting for a message to be transmitted or received 

4 - Waiting for an overlay area to become free 

5 - Codes 1 and 2 both apply 

6 - Code 2 and also suspended by XMTW or REC 

7 - Codes 2 and 4 both apply 

8 - No task exists with this i.d. number 

(4) The error code word will be set to one of the following states: 

- Indeterminate error 

1 - No error occurred 

3 . . . n - RDOS system error code + 3 



22-14 



Licensed Material - Property of Data General Corporate 



Task 



ROUTINE: TRNON 

Supporting Subroutines : DVD, MPY, FRET, RTID, TIDSR; .CPYL 

Subroutine Size: No page zero locations and 141 locations of normally relocatable 
memory. 

Entry: TRNON 

Function: Executes a task at a specified time of day. 

Calling Sequence: 

FCALL 

TRNON 

Integer 3 

FORTRAN ADDRESS of task i.d. 

FORTRAN ADDRESS of time array 

FORTRAN ADDRESS of error code 

Notes: \ 

(1) Accumulators and carry are restored on exit. 

(2) TRNON must be referenced by an . EXTN statement. 

(3) The time array consists of three words. The first word specifies hours, the 
second specifies minutes, and the third specifies seconds of the time of day for 
task execution. 

(4) If the specified time is negative, the task is started immediately. 

(5) The error code is set to zero if an illegal time is specified or there is no clock 
in the system. 
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EXBG 23-3 

EXFG 23-3 

FGND 23-4 
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---ROUTINE: EXBG 



Foreground/ 
Background 



Supporting Subroutines : FRET; .CPYL 

Subroutine Size: No page zero locations and 22 locations of normally relocatable 

^ o 

memory. 

Entry: EXBG 

Function: Loads and executes a user program in the background. 

Calling Sequence : 

FCALL 

EXBG 

Integer 3 

FORTRAN ADDRESS of file name to be executed 

FORTRAN ADDRESS of priority 

FORTRAN ADDRESS of error code 



Notes: 



(1) Accumulators and carry are restored on exit. 

(2) EXBG must be referenced by an . EXTN statement. 

(3) This routine issues the RDOS system call . EXBG . 

(4) The priority is if the background has a lower priority than the foreground 
and 1 if they have the same priority. 

(5) The error code will be set to one of the following states: 

1 - No error occured 
3 . . .n - RDOS system error code + 3 

ROUTINE: EXFG 

Support ing Subroutine s : FRET; .CPYL 

Subroutine Size: No page zero locations and 21 locations of normally relocatable 

o 

memory. 

Entry: EXFG 

Function : Loads and executes a user program in the foreground. 

Calling Sequence : 

FCALL 

EXFG 

Integer 3 

FORTRAN ADDRESS of file name to be executed 

FORTRAN ADDRESS of priority 

FORTRAN ADDRESS of error code 
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ROUTINE: EXFG (Continued) 
Notes : 

(1) Accumulators and carry are restored on exit. 

(2) EXFG must be referenced by an . EXTN statement. 

(3) This routine issues the RDOS system call . EXFG . 

(4) The priority is if the foreground has a higher priority than the background 
and 1 if they have the same priority. 

(5) This call can only be made from a background program. 

(6) The error code is set to one of the following states: 

- Indeterminate error 

1 - No error occurred 

3 . . . n - RDOS system error code + 3 

ROUTINE: FGND 

Supporting Subroutines : FRET; CPYL 

Subroutine Size: No page zero locations and 7 locations of normally relocatable 
memory. 

Entry: FGND 

Function : Determines whether or not a foreground program is running in the 
system. 

Calling Sequence : 

FCALL 

FGND 

Integer 1 

FORTRAN ADDRESS of result 



Notes: 



(1) Accumulators and carry are restored on exit. 

(2) FGND must be referenced by an . EXTN statement. 

(3) This routine issues the RDOS system call . FGND . 

(4) The result is 1 if a foreground program is executing and if a foreground 
program is not executing. 

(5) No error messages are generated. 
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FXMT ..,,,,,,,,, s , s = s s = s s ,, , 24-3 

ICMN 24-4 

RDOPR 24-5 

RWCMN 24-6 

WROPR 24-7 



24-1 



24-2 



Licensed Material - Property of Data General Corporation 



Communication 



ROUTINE: FXMT 

Supporting Subroutines : FRET, RECC, XMTT, XMTTW; .CPYL 

Subroutine Size: 33 locations of normally relocatable memory 
o 

Entry: XMT 

Function: Transmits a one word message to a receiving task, then remains 
ready to resume oUiei task activity. 

Calling Sequence : 

FCALL 

XMT 

Integer 3 

FORTRAN ADDRESS of the message location (key location) 

FORTRAN ADDRESS of the one word message 

FORTRAN ADDRESS of the error return 

(Control returns to the FORTRAN Task Scheduler) 

Notes : 

(1) Accumulators and carry are saved in the caller's TCB. 

(2) XMT must be referenced by an . EXTN statement. 

(3) A one word message is placed in the key location if the task for whom it is 
intended has not yet requested its receipt. As soon as the receiving task issues 
a receive request, the message is placed in the address specified by the 
receiving task, and the contents of the key location are reset to all zeroes. 

If the receiving task has requested the message before its transmission, the 
message is sent directly to the receiver's address, bypassing the key 
location entirely. 

(4) The error return is taken if the message address is already in use, which 
is indicated by non-zero contents. 

Entry: XMTW 

Function: Transmits a one word message and waits, staying suspended until 
the message is received. 

Calling Sequence : 

FCALL 

XMTW 

Integer 3 

FORTRAN ADDRESS of the message location (key location) 

FORTRAN ADDRESS of the one word message 

FORTRAN ADDRESS of the error return 

(Control returns to the FORTRAN Task Scheduler. ) 



24-3 



Licensed Material - Property of Data General Corporation 



Communication 



ROUTINE: FXMT (Continued) 



Notes: 



(1) XMTW must be referenced by an . EXTN statement. 

(2) Notes (1), (3), and (4) for XMT also apply to XMTW. 
Entry: REC 

Function: To receive a one word message from a transmitting task. 
Calling Sequence : 

FCALL 
REC 

Integer 2 

FORTRAN ADDRESS of the message location (key location) 
FORTRAN ADDRESS to receive the one word message 
(must be different from the key) 

(Control returns to the FORTRAN Task Scheduler.) 



Notes: 



(1) Accumulators and carry are saved in the caller's TCB. 

(2) REC must be referenced by an . EXTN statement. 

(3) If the contents of the key location are non-zero at the time of this call (i. e. , if 
a message has been sent), the message is passed directly to the receiving task 
and the contents of the key location are reset to zeroes. If the contents of the 
key location are zero when this call is issued (i.e. , if the message has not yet 
been sent), the receiving task is suspended until the message is sent. When the 
message is transmitted, it is sent directly to the receiving task, bypassing the 
key location entirely, and the receiving task becomes ready. 



--ROUTINE: ICMN 



Supporting Subroutines : FRET; .CPYL 

Subroutine Size: No page zero locations and 16 locations of normally relocatable 
memory. 



Entry: ICMN ; 

Function: Defines an array area for use in sending or receiving messages between 
user programs. 

/ 
Calling Sequence : 

FCALL 

ICMN 

Integer 3 

FORTRAN ADDRESS of array pointer 

FORTRAN ADDRESS of length specifier (# of words) 

FORTRAN ADDRESS of error code 
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ROUTINE: ICMN (Continued) 



Notes: 



(1) Accumulators and carry are restored on exit. 

(2) ICMN must be referenced by an . EXTN statement. 

(3) This routine issues the RDOS system call . ICMN . 

(4) The error code is set to one of the following states: 

- Indeterminate error 

1 - No error occurred 



Communication 



ROUTINE: RDOPR 



Supporting Subroutines : FRET; .CPYL 

Subroutine Size: No page zero locations and 22 locations of normally relocatable 



memory. 



Entry: RDOPR 



Notes: 



Function: Causes transmission of an operator message to either the foreground 
or background program. 

Calling Sequence : 

FCALL 

RDOPR 

Integer 3 

FORTRAN ADDRESS of array 

FORTRAN ADDRESS of byte specifier 

FORTRAN ADDRESS of error code. 



(1) Accumulators and carry are restored on exit. 

(2) RDOPR must be referenced by an . EXTN statement. 

(3) Vhis routine issues the RDOS system call . RDOP . 

(4) The array in the calling sequence is an array large enough to handle 132 
characters, including a carriage return terminator. 

(5) The byte specifier is set to the number of bytes transferred, including the 
terminating character. On an error, it is set to 0. 

(6) The first character in the message transmitted from the system console must 

be a CTRL E (which is echoed as an exclamation point) followed by either F or B. 
F indicates that a foreground program is to receive the message, and B 
indicates that the background is the receiver. If some character other than 
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ROUTINE: RDOPR (Continued) 

Notes: (Continued) 

(6) (Continued) 



Communication 



F or B is typed, no further text string will be accepted until an F or B 
is typed. If the user tries to transmit a message for which there is no 
outstanding read operator message call, the bell sounds when CTRL E 
is depressed. The last character must be the carriage return and the 
entire message string can be up to 132 characters. 

(7) The error code is set to one of the following states: 

- Indeterminate error 

1 - No error occurred 

3 . . . n - RDOS system error code + 3 



ROUTINE: RWCMN 



Supporting Subroutines : FRET; .CPYL 

Subroutine Size: No page zero locations and 30 g locations of normally relocatable 
memory. 



Entry: RDCMN 



Function: Causes the calling program to read a message from another 
program's communications area. 

Calling Sequence : 

FCALL 

RDCMN 

Integer 4 

FORTRAN ADDRESS of area to receive message 

FORTRAN ADDRESS of word offset 

FORTRAN ADDRESS of number of words to be read 

FORTRAN ADDRESS of error code 



Entry: WRCMN 



Function: Causes the calling program to write a message in another program's 
communications area. 

Calling Sequence : 

FCALL 

WRCMN 

Integer 4 

FORTRAN ADDRESS of start of message 

FORTRAN ADDRESS of word offset 

FORTRAN ADDRESS of number of words to write 

FORTRAN ADDRESS of error code 
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ROUTINE: RWCMN (Continued) 
Notes : 

(1) Accumulators and carry are restored on exit. 

(2) RDCMN and WRCMN must be referenced by . EXTN statements. 

(3) The program issuing a call to RDCMN or WRCMN may be executing in 
either the foreground or background. 

(4) The word offset in the calling sequence specifies the offset of the message 
to be read or written within the communication area. 

'5) The message that is tn hp spnt or received may originate or be written 
anywhere within the calling program's address space. 

(6) This routine issues the RDOS system call .RDCMN . 

(7) The error code will be set to one of the following states: 

- Indeterminate error 

1 - No error occurred 

3 . . . n - RDOS system error code + 3 

ROUTINE: WROPR 

Supporting Subroutines: FRET; .CPYL 

Subroutine Size: No page zero locations and 20 locations of normally relocatable 
memory. 

Entry: WROPR 

Function: Writes an operator message. 

Calling Sequence : 

FCALL 

WROPR 

Integer 2 

FORTRAN ADDRESS of message array 

FORTRAN ADDRESS of error code 

Notes : 

(1) Accumulators and carry are restored on exit. 

(2) WROPR must be referenced by an . EXTN statement. 

(3) This routine issues the RDOS system call . WROP . 

(4) An ouput string is written from either the foreground or background areas to 
the system console. The message consists of an ASCII string less than or 
equal to 129 characters in length, including the required carriage return 
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ROUTINE: WROPR (Continued) 

Notes : (Continued) 

(4) (Continued ) 



terminator. The system will prefix two exclamation characters and either 
an F for foreground or B for background to indicate where the message 
originated. 

(5) The error code will be set to one of the following states: 

- Indeterminate error 

1 - No error occurred 

3 . . . n - RDOS system error code + 3 



INTERRUPT ROUTINES 



FCNS 25-3 

FINTD 25-3 

IYMT 25-6 
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ROUTINE: FCNS 

Supporting Subroutines : FRET; .CPYL 

Subroutine Size: No page zero locations and 14 locations of normally relocatable 
memory. 

Entry: OEBL 

Function: Enables console interrupts CTRL A, CTRL C, and CTRL F. 

Calling Sequence : 

FCALL 
OEBL 

Entry: ODIS 

Function: Disables console interrupts CTRL A, CTRLC, and C.R-.. 

Calling Sequence : 

FCALL 
ODIS 



Notes: 



(1) Accumulators and carry are restored on exit. 

(2) OEBL and ODIS must both be referenced by . EXTN statements. 

(3) This routine issues the RDOS system calls .ODIS and .OEBL.. 

(4) No error messages are generated. 

(5) Console interrupts CTRL A, CTRL C. and CTRL F are enabled when a 
system is first bootstrapped. A call to ODIS is used to disable the interrupts, 
a call to OEBL reenables them within its program environment. 



ROUTINE: FINTD 

Supporting Subroutines : FRET; .CPYL, .RTER 

Subroutine Size: 2 page zero locations and 21 locations of normally relocatable 
memory. 

Entry: FINTD 

Function: Introduces to the system a non-SYSGENed device capable of generating 
interrupt requests. 
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ROUTINE: FINTD (Continued) 
Entry: FINTD (Continued) 
Calling Sequence : 



FCALL 

FINTD 

Integer 2 

FORTRAN ADDRESS of the device code 

FORTRAN ADDRESS of the three word DCT 



Notes : 

(1) Accumulators and carry are saved. 

(2) FINTD must be referenced in an . EXTN statement. 

(3) This call causes an entry for this device to be placed in the system interrupt 
vector table. 

(4) A system error code ERDNM is output if an illegal device code is given, and 
return is made to the CLI. 

Entry: FINRV 

Function: Removes a non-SYSGENed device, which had been identified by FINTD, 
from the system's recognition. 

Calling Sequence : 

FCALL 

FINRV 

Integer 1 

FORTRAN ADDRESS of the device code 



(1) Accumulators and carry are saved, 

(2) FINRV must be referenced by an . EXTN statement. 

(3) This call removes the device entry from the system interrupt vector table. 

(4) A system error code ERDNM is output if an illegal device code is given, and 
return is made to the CLI. 
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ROUTINE: IXMT 



Supporting Subroutines : FRET, IXMTT; .CPYL 

Subroutine Size: No page zero locations and 15 locations of normally relocatable 
memory. 



Entry: IXMT 



Notes: 



Function: Transmits a message from a user interrupt service routine to a 
task in the multitasking environment. 

Calling Sequence : 

FCALL 

IXMT 

Integer 3 

FORTRAN ADDRESS of the message address 

FORTRAN ADDRESS of the message 

FORTRAN ADDRESS of the error code 



(1) Accumulators and carry are restored upon exit. 

(2) Return is to the caller, not to the task scheduler. 

(3) This routine is issued only in a user interrupt service routine, outside 
the multitasking environment. 

(4) DCMT must be referenced by an . EXTN statement. 

(5) The error code word will be set to one of the following states: 

- Indeterminate error 

1 - No error occurred 

3 .... n - RDOS system error code + 3 
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FILE MAINTENANCE ROUTINES 



CFILW 26-3 

CHLAT 26-4 

C LOSE 26-5 

DFILW 26-6 

DLINK 26-7 

FFILE 26-7 

FSEEK 26-8 

FSTAT 26-9 

FSWAP. . . ; t . ; . : 7 ; : L ; . . 26-9 

GTATR 26-10 

OPEN ; .26-ll 

RESET 26-13 

STAT 26-13 

UPDATE 26-14 
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ROUTINE: CFILW 



Supporting Subroutines: FRET; .CPYL, .RTER 

Subroutine Size: No page zero locations and 46 locations of normally relocatable 
memory. 

Entry: CFILW 

Function: Creates an RDOS disk file. 

Calling Sequence : 

FCALL 

CFILW 

Integer number of arguments, 3 or 4 

FORTRAN ADDRESS of file name 

FORTRAN ADDRESS of file type indicator 

optional FORTRAN ADDRESS of file size 

FORTRAN ADDRESS of error code 



Notes: 



(1) Accumulators and carry are restored on exit. 

(2) The file name is an ASCII byte string. 

(3) The file type indicator is 1 for a sequentially organized file, 2 for a 
randomly organized file, and 3 for a contiguously organized file. 

(4) The file size argument is used only when a contiguously organized file is 
being created. The file size is an integer describing the number of disk 
blocks in the file. 

(5) The error code word will be set to one of the following states: 

- Indeterminate error 

1 - No error occurred 

3 . . . n - RDOS system error code + 3 

(6) A call to DELETE is equivalent to a call to DFILW. 
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-- ROUTINE: CHLAT 



Notes: 



Supporting Subroutines: FRET; .CPYL, JOCAT 

Subroutine Size: No page zero locations and 26 locations of normally relocatable 
memory. 



Entry': CHLAT 



Function: Changes, adds or deletes link file access attributes of a file on a 
specified channel. 

Calling Sequence : 

FCALL 

CHLAT 

Integer 3 

FORTRAN ADDRESS of channel number 

FORTRAN ADDRESS of attributes specifier 

FORTRAN ADDRESS of error code 



(1) Accumulators and carry are restored on exit. 

(2) CHLAT must be referenced by an .EXTN statement. 

(3) This routine issues the RDOS system call .CHLAT. 

(4) The attributes specifier is a word with the following bit representations: 

Bit Meaning 

Read -protected file 

1 Attribute -protected file 

2 Save file 

3 Link entry 

4 Partition 

5 Directory file 

a t ini- resolution ^tem^orai" 17 ^. Some or all of the 

other attributes persist for the duration of the open. 

7 No link resolution allowed 

8 Accessible by direct block I/O only 

12 Contiguous file 

13 Random file 

14 Permanent file 

15 Write -protected file 

(5) The error code will be set to one of the following states: 

- Indeterminate error 

1 - No error occurred 

3 . . . n - RDOS system error code + 3 
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--- ROUTINE: CLOSE 



Supporting Subroutines : FRET, FSAV; . IOC AT, .RTER, .CPYL, . SOSW 

Subroutine Size: No page zero locations and 47 locations of normally relocatable 
memory. 

Entry: CLOSE 

Function : Frees a FORTRAN logical channel and closes the file associated with 
that channel, (under RDOS) 

Calling Sequence : 

FCALL 

CLOSE 

Integer 2 

FORTRAN ADDRESS of logical channel number 

FORTRAN ADDRESS of error code 

Entry: FCLOS 

Function: Frees a FORTRAN logical channel and closes die file associated 
with that channel. 

Calling Sequence : 

FCALL 

FCLOS 

Integer 1 

FORTRAN ADDRESS of logical channel number 

Notes : 

(1) Contents of accumulators and carry are restored on exit. 

(2) CLOSE and FCLOS must be referenced by . EXTN statements. 

(3) The logical channel number is an integer constant with a value between 
and 63 . 

(4) CLOSE issues the RDOS system call .CLOSE . 

(5) The error code word will be set to one of the following states: 

- Indeterminate error 

1 - No error occurred 

3 . . . n - RDOS system error code + 3 
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ROUTINE: DFILW 

Supporting Subroutines: FRET; .CPYL, .RTER 

Subroutine Size: No page zero locations and 27 g locations of normally relocatable 
memory. 

Entry: DFILW 

Function: Deletes a disk file. 

Calling Sequence: 

FCALL 

DFILW 

Integer number of arguments, 1 or 2 

FORTRAN ADDRESS of file name 

optional FORTRAN ADDRESS of error code 



Notes: 



(1) Contents of accumulators and carry are restored on exit. 

(2) DFILW must be referenced by an . EXTN statement. 

(3) DELET is equivalent to DFILW. 

(4) The file name is an ASCII byte string. 

(5) This routine issues the RDOS system call .DELET . 

(6) If a file requested to be deleted is open on one or more FORTRAN channels, 
the file will not be deleted. Instead, if no error code argument is supplied, 
a run time error message will be issued. If the error code argument is 
supplied, the error code will be set to one of the following states: 

- Indeterminate error 

1 - No error occurred 

3 . . . n - RDOS system error code + 3 
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---ROUTINE: DLINK 



Supporting Subroutines : FRET; .CPYL 

Subroutine Size: No page zero locations and 20 locations of normally relocatable 
memory. 

Entry: DLINK 

Function: Creates a link entry in the current directory to a file in another 
directory. 

Calling Sequence : 

FCALL 

DLINK 

Integer 3 

FORTRAN ADDRESS of name of link entry 

FORTRAN ADDRESS of file name 

FORTRAN ADDRESS of error code 



Notes: 



(1) Accumulators and carry are restored on exit. 

(2) DLINK must be referenced by an . EXTN statement. 

(3) This routine issues the RDOS system call .LINK . 

(4) The error code is set to one of the following states: 

- Indeterminate error 

1 - No error occurred 

3 . . . n - RDOS system error code + 3 

ROUTINE: FFILE 

Supporting Subroutines : FSAV, FRET, FCLOS, FSEEK, FCALL, IOPTR; 
.CPYARG, .RTER, . IOCAT, .FCALL 

Subroutine Size: 1 page zero location and 64 locations of normally relocatable 
memory. 

Entry: .FFILE 

Function: Positions a sequential file which has been assigned a FORTRAN channel 
number. 



Calling Sequence : 



JSR@.FFIL 

File positioning code 

FOFTRAN ADDRESS of FORTRAN channel number 

(File positioning codes are 1 for position the file at its initial record 
and 2 for close the file associated with this channel.) 
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ROUTINE: FFILE (Continued) 



Notes: 



(1) Accumulators and carry are restored upon exit. 

(2) . FFIL must be referenced by an . EXTD statement. The FCALL entry F1TL 
must be referenced by an . EXTN statement. 

(3) I/O error conditions and unopened files will cause error messages to be 
generated. 

--- ROUTINE: FSEEK 

Supporting Subroutines : FRET, MPY; .CPYL, .IOCAT, . RTER 

Subroutine Size: No page zero locations and 51 locations of normally relocatable 
memory. 

Entry: FSEEK 

Function: Accesses a particular record on a random access file. 
Calling Sequence : 

JSR (g . FCALL (or FCALL) 

FSEEK 

Integer 2 

FORTRAN ADDRESS of FORTRAN logical channel number 

FORTRAN ADDRESS of the record number to be accessed 



Notes: 



(1) Contents of accumulators and carry are restored upon exit. 

(2) FSEEK must be referenced by an . EXTN statement. 

(3) When more than one record is to be written or read without intervening 
calls to FSEEK, records will be written or read sequentially. 

(4) The file with the given channel number is positioned at the first byte 
of the first random record whose length was specified by FOPEN. 

(5) A run time error is given if the file is not randomly organized or if the 
file is not open. 



26- 



Licensed Material - Property of Data General Corporation 



File 
Maintenance 



-~ ROUTINE: FSTAT 



Supporting Subroutines : FRET; .CPYL, .IOC A 

Subroutine Size: No page zero locations and 26 locations of normally relocatable 

v ' o 

memory. 

Entry: FSTAT 

Function: Sets the attributes of a FORTRAN file (not a device). 

Calling Sequence : 

PC ALL 

FSTAT 

Integer 3 

FORTRAN ADDRESS of the FORTRAN channel number 

FORTRAN ADDRESS of the file attributes word 

FORTRAN ADDRESS of the error code. 

Notes : 

(1) Accumulators and carry are restored on exit. 

(2) This routine issues the RDOS system call .CHRAT . A 1 in the specified 
bit position of the attributes word sets the given attribute for the file: 

bit - File is read -protected, 

bit 1 - File is attribute -protected, 

bit 2 - The file is a save file, 

bit 15 - The file is write -protected. 

(3) The error code word will be set to one of the following states: 

- Indeterminate error 

1 - No error occurred 

3 . . . n - RDOS system error code + 3 



--- ROUTINE: FSWAP 

Supporting Subroutines : FERTO, FERTN; .CPYL, .FRET, .RTER 

Subroutine Size: No page zero locations and 43 locations of normally relocatable 
memory. 

Entry: FSWAP 

Function: Saves the current core image as a disk save file and reads in a new 
save file at a lower program level. 

Calling Sequence : 

FCALL 

FSWAP 

Integer 1 

FORTRAN ADDRESS of the save file name 
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ROUTINE: FSWAP (Continued) 



Entry: FCHAN 

Function: Performs a program chain; a new save file is read from disk, over- 
writing the current core image without changing program levels. 

Calling Sequence : 

FCALL 

FCHAN 

Integer 1 

FORTRAN ADDRESS of the save file name 

Entry: FBACK 

Function: Reads in from disk the next higher program level swap. 



Notes: 



Calling Sequence : 

FCALL 
FBACK 



(1) In a call to FSWAP the calling program is suspended and is saved on disk. 
The caller's task control block is used to save its accumulators, carry and 
PC to allow the caller to be resumed when control is transferred back to 
this level. Control is returned to the caller by a call to FBACK. 

(2) The calling program is overwritten and accumulators and carry are lost in 
calls to FBACK and FCHAN. Data can be passed via blank common, since 
blank common is not overwritten during program swapping or chaining. 

(3) When the new save file is read into core, control goes to the highest priority 
ready task within it. 

--- ROUTINE: GTATR 

Supporting Subroutines: FRET; .CPYL, . IOC AT 

Subroutine Size: No page zero locations and 26 locations of normally relocatable 
memory. 

Entry: GTATR 

Function: Gets the attributes of a FORTRAN file (not a device). 

Calling Sequence : 

FCALL 

GTATR 

Integer 3 

FORTRAN ADDRESS of the FORTRAN channel number 

FORTRAN ADDRESS to receive the attributes word 

FORTRAN ADDRESS of the error code 



26-10 



Licensed Material - Property of Data General Corporation 



ROUTINE: GTATR (Continued) 



Maintenance 



Notes: 



(1) Accumulators and carry are restored on exit. 

(2) This routine issues the RDOS system call .GTATR. A 1 in the specified 



bit - File is read -protected. 

bit 1 - File is attribute -protected. 

bit 2 - The file is a save file. 

bit 12 - The file is organized contiguously. 

bit 13 - The file is organized randomly. 

bit 14 - The file is a permanent file. 

bit 15 - The file is write -protected. 

(3) The error code word will be set to one of the following states: 

- Indeterminate error 

1 - No error occurred 

3 . . . n - RDOS system error code + 3 



ROUTINE: OPEN 



Supporting Subroutines : FRET, IOPTR; .CPYL, . IOC AT , .SOSW 



memory. 

Entry: OPEN 

Function: Opens a file on a FORTRAN channel, optionally specifying a 
factor for the file. 

Calling Sequence : 

FCALL 

OPEN 

Integer number of arguments, 4 or 5 

FORTRAN ADDRESS of FORTRAN channel number 

FORTRAN ADDRESS of file name 

FORTRAN ADDRESS of open mode or open array 

FORTRAN ADDRESS of error code 

optional FORTRAN ADDRESS of blocking factor 

Entry: OVOPN 

Function: Opens an overlay file on a FORTRAN channel 

Calling Sequence : 

FCALL 

OVOPN 

Integer 3 

FORTRAN ADDRESS of FORTRAN channel number 

FORTRAN ADDRESS of file name 

FORTRAN ADDRESS of error code 
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ROUTINE: OPEN (Continued) 

Entry: APPEND 

Function: Opens a file so that new file information may be appended to that file. 
An optional blocking factor may be specified for the record size. 

Calling Sequence : 

FCALL 

APPEND 

Integer number of arguments, 4 or 5 

FORTRAN ADDRESS of FORTRAN channel number 

FORTRAN ADDRESS of file name 

FORTRAN ADDRESS of open mode or open array 

FORTRAN ADDRESS of error code 

optional FORTRAN ADDRESS of blocking factor 

Entry: MTOPD 

Function: Opens a magnetic or cassette tape device for direct access 
with the given device mask. 

Calling Sequence : 

FCALL 

MTOPD 

Integer number of arguments, 4 

FORTRAN ADDRESS of FORTRAN channel number 

FORTRAN ADDRESS of file name 

FORTRAN ADDRESS of device characteristic mask 

FORTRAN ADDRESS of error code 

Notes : 

(1) Accumulators and carry are restored upon exit. 

(2) OPEN, OVOPN, MTOPD, APPEND must be referenced by . EXTN statements 

(3) The file name is an ASCII byte string, including the file . OL extension 
for a call to OVOPN. 

(4) OVOPN issues the RDOS system call .OVOPN and must be used before FORTRAN 
overlays can be loaded in either a single or multitask environment. The 
FORTRAN routine FCLOS is used to close the overlay file and release its 
FORTRAN channel. 

(5) The open mode or array is used to indicate the type of open preferred on the 
given file and optionally the device characteristic mask. A call to MTOPD 
must give the device characteristic mask. The alternate settings of the 
argument are given below: 

open mode: an integer constant or variable 

1 - open for reading only 

3 - open for writing by oic user but reading by one or more users 

other than 1 or 3 - open for user -shared reading and writing 
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open array: 3 -element integer array 

First element - contains -1 (the array flag) 
Second element - contains the open mode given 

above (1, 3, or other than 1 or 3) 
Third element - contains the device characteristic mask 

l he bit/characteristic correspondence used in setting the device characteristic 

mask is: 



Bit 



Meaning 



irso 

IB] 
i R2 

11J3 
1154 
1B5 
1136 
1B7 

1158 

1159 

11310 

Hill 

1B12 

11313 

11514 

11315 



Spooling enabled (0B0 is spooling disabled)* 

80-column device 

device changing lower case ASCII to upper case 

device requiring form feeds on opening 

full word device (reads or writes more than a byte) 

Spoolable device 

output device requiring line feeds after carriage returns 

input device requiring a parity check; output device requiring 

parity to be computed 

output device requiring a rubout after every tab 

output device requiring nulls after every form feed 

» keyivijird input device 

a teletype output device 

output device without form feed hardware 

device requiring operator intervention 

output device requiring tabbing hardware 

output device requiring leader/trailer 



(6) The error code will be set to one of the following: 

- Indeterminate error 

1 - No error occurred 

3. . . n - RDOS system error code +3 

(7) The blocking factor constant is an integer indicating the number of bytes/record. 
For random record I/O, the blocking factor should be 128. 

(8) Up to 64 FORTRAN channel numbers are allowed, through 63. 

(9) If the file does not currently exist on an OPEN or APPEND call, a random disk 
file will be created or opened. 



liu! TF\F: RESET 



Suppor ting Subroutines: FRET; .IOCAT 

Subroutine Size: No page zero locations and 21 locations of normally relocatable 
memory. 

Eui.rvj_ RESET 

Function: Closes ill currently open files and all FORTRAN channels. 
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Entry: RESET(Continued) 

Calling Sequence : 

FCALL 
RESET 



Notes: 



(1) Accumulators and carry are restored on exit. 

(2) This routine issues the RDOS system call .RESET . If this call is issued in a 
multitask environment, it must be issued only when no other task is performing 
any channel -related operations. 

ROUTINE: STAT 

Supporting Subroutines : FRET; .CPYL 

Subroutine Size: No page zero locations and 17 locations of normally relocatable 
memory. 

Entry: STAT 

Function: Obtains status information about the current file directory. 

Calling Sequence : 

FCALL 

STAT 

Integer 3 

FORTRAN ADDRESS of file name 

FORTRAN ADDRESS of array to receive status 

FORTRAN ADDRESS of error code 

Notes : 

(1) Accumulators and carry are restored on exit. 

(2) STAT must be referenced by an .EXTN statement. 
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ROUTINE: STAT (Continued) 



Notes: (Continued) 



(3) The array to receive the file status must be 22 words in length and is 
supplied with the following data: 



Word contents 



1-5 File name 

6 Extension 

7 File Attributes 

10 Link access attributes 

1 1 Nnmhar of the last hlock in the file 

12 Number of bytes in the last block 

13 Starting logical block address of the file (the random 
file index for random files) 

14 Year/day last accessed 

15 Year/day created 

16 Hour/minute created 

17 UFD temporary 

20 UFD temporary 

21 User count 

22 DC'T link 

(4) The error code is set to one of the following states: 

- Indeterminate error 

1 - No error code occurred 
3. . . n - RDOS system error +3 

(5) This routine issues the RDOS system call .STAT. 



ROUTINE: UPDATE 

Supporting Subroutines: FRET; .CPYL, .IOCAT 

Subroutine Size: No page zero locations and 25 locations of normally relocatable 
memory. 

Entry: UPDATE 

Function: Updates the file size of the named file. 

Calling Sequence : 

FCALL 

UPDATE 

Integer 2 

FORTRAN ADDRESS of channel number 

FORTRAN ADDRESS of error code 
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ROUTINE: UPDATE (Continued) 




Notes: 



(1) Accumulators and carry are restored on exit. 

(2) UPDATE must be referenced by an . EXTN statement. 

(3) This routine issues the RDOS system call .UPDAT . 

(4) The error code is set to one of the following states: 

- Indeterminate error 

1 - No error occurred 

2 - Channel not open 

3. . . n - RDOS system error code +3 
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--- ROUTINE: DATE 



Supporting Subroutines: FRET; .CPYL 

Subroutine Size: No page zero locations and 16 locations of normally relocatable 
memory. 

Entry: DATE 

Function: Gets the current da^ of the "ear* 

Calling Sequence : 

FCALL 

DATE 

Integer 2 

FORTRAN ADDRESS of date array 

FORTRAN ADDRESS of error code 

Notes : 

(1) Accumulators and Carry are restored upon exit. 

(2) This routine issues the RDOS system call .GDAY. The date is stored in an 
integer array of 3 words as follows: Month - element 1, Day - element 2, 
Year - element 3; and is returned on execution of the call. The year is re- 
turned as a two -digit number, i.e., 74, 75, etc. 

(3) The error code word will be set to one of the following states: 

- Indeterminate error 

1 - No error occurred 



ROUTINE: DUCLK 

Supporting Subroutines : FRET; .CPYL 

Subroutine Size: No page zero locations and 16 locations of normally relocatable 
memory. 

Entry: DUCLK 

Function: Defines a user clock. 



Calling Sequence : 



Notes: 



FCALL 

DUCLK 

Integer 3 

FORTRAN ADDRESS of number of ticks between interrupts 

FORTRAN ADDRESS of interrupt response code 

FORTRAN ADDRESS of error code 



(1) Accumulators and carry are restored on exit. 

(2) DUCLK must be referenced by an . EXTN statement. 
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ROUTINE: DUCLK (Continued) 
Notes : (Continued) 

(3) This routine issues the RDOS system call .DUCLK. 

(4) The number of ticks is an integer variable or constant specifying the integer 
number of RTC cycles which are to elapse between user clock intervals. 

(5) The interrupt response code is a pointer to the user routine which will 
receive control when an interrupt occurs from the user clock. 

(6) The current environment is frozen when the user clock generates an 
interrupt, and it remains frozen while control goes to the interrupt service 
routine. 

(7) The error code will be set to one of the following states: 

- Indeterminate error 

1 - No error occurred 

3 . . . n - RDOS system error + 3 



ROUTINE: FTIME 

Supporting Subroutines : FRET; .CPYL, .RTER 

Subroutine Size: 2 page zero locations and 41 g locations of normally relocatable 
memory. 

Entry: FGTIM 

Function: Gets the time of day 

Calling Sequence : 

FCALL 

FGTIM 

Integer 3 

FORTRAN ADDRESS to receive the hour 

FORTRAN ADDRESS to receive the mmute 

FORTRAN ADDRESS to receive the second 



Notes: 



(1) Accumulators and carry are saved. 

(2) FGTIM must be referenced in an . EXTN statement. 

(3) No error message is possible. 

(4) The time of day is given by a 24 hour clock. 
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ROUTINE: FTIME (Continued) 



Entry: FSTIM 



Function: Sets the system clock. 
Calling Sequence : 



FCALL 

FSTIM 

Integer 3 

FORTRAN ADDRESS of the current hour 

FORTRAN ADDRESS of the current minute 

FORTRAN ADDRFSS r>f Ap mi-rent <uv>nnri 



Notes: 



(1) Accumulators and carry are saved. 

(2) FSTIM must be referenced in an . EXTN statement. 

(3) A fatal run time error message, ERTIM, is issued if an attempt is made to 
set an illegal time. Upon issuance of an error message, control returns 
either to the Debugger or to the CLI. 



ROUTINE: GFREQ 

Supporting Subroutines : FRET; .CPYL 

subroutine Size: No page zero locations and 7 locations of normally relocatable 
memory. 

Entry: GFREQ 

Function: Examines the system real time clock and returns the clock frequency. 

Calling Sequence : 

FCALL 

GFREQ 

Integer 1 

FORTRAN ADDRESS of word to receive frequency 



Notes: 



(1) Accumulators and carry are restored on exit. 

(2) GFREQ must be referenced by an . EXTN statement. 

(3) No error messages are generated. 

(4) This routine issues the RDOS system command .GHRZ . 
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ROUTINE: GFREQ (Continued) 
Notes : (Continued) 

(5) The word receiving the frequency will be set to one of the following values: 

- No real time clock in system 

1 - 10 HZ 

2 - 100 HZ 

3 - 1000 HZ 

4 - 60 HZ 

5 - 50 HZ 

ROUTINE: RUCLK 

Supporting Subroutines : FRET; .CPYL 

Subroutine Size: No page zero locations and 6 locations of normally relocatable 
memory. 

Entry: RUCLK 

Function: Removes a previously defined user clock. 

Calling Sequence : 

FCALL 
RUCLK 



Notes: 



(1) Accumulators and carry are restored on exit. 

(2) RUCLK must be referenced by an . EXTN statement. 

(3) No error messages are generated. 

(4) This routine issues the RDOS system call .RUCLK. 



ROUTINE: TIME 

Supporting Subroutines : FRET; .CPYL 

Subroutine Size: No page zero locations and 16 locations of normally relocatable 
memory. 

Entry: TIME 

Function: Fetches the current time of day. 

Calling Sequence : 

FCALL 

TIME 

Integer 2 

FORTRAN ADDRESS of time array 

FORTRAN ADDRESS of error code 
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ROUTINE: TIME (Continued) 
Notes : 

(1) Accumulators and Carry are restored upon exit. 

(2) This routine issues the RDOS system call .GTOD . The time is returned 
in the order hours, minutes, and seconds, and is stored in the time array. 

i. -UJ.O U.J. xu'v W Oil XiiLV^V'-L clj-j-tx^y ui. M.C i^UiJi, lji±v,v, vVv/J.u i_>« 

(3) The error code word will be set to one of the following states: 

- Indeterminate error 
± - i\o error occurreu 
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--- ROUTINE: BOOT 



O/S 



Supporting Subroutines : FRET; .CPYL 

Subroutine Size: No page zero locations and 14 locations of normally relocatable 
memory. 



Entry: BOOT 



Calling Sequence : 



Notes: 



FCALL 

BOOT 

Integer 2 

FORTRAN ADDRESS of name of a primary global device 

FORTRAN ADDRESS of error code 



(1) Accumulators and carry are restored on exit. 

(2) BOOT must be referenced by an . EXTN statement. 

(3) This routine issues the RDOS system call . BOOT. 

(4) A call to this routine causes all open files in a currently executing system 
(both foreground and background) to be closed, all directories to be released, 

and all system I/O to be reset. Control is then transferred to HIPBOOT, 
which will then bootstrap a new operating system. 

(5) A call to BOOT should not be issued from the background when the foreground 
is active. 

(6) The error code will be set to one of the following states: 

- Indeterminate error 

1 - No error occurred 

3 . . . n - RDOS system error code + 3 



ROUTINE: GSYS 

Supporting Subroutines : FRET; .CPYL 

Subroutine Size: No page zero locations and 7 locations of normally relocatable 
memory. 

Entry: GSYS 

Function: Gets the name of the current operating system. 

Calling Sequence : 
FCALL 
GSYS 
Integer 1 
FORTRAN ADDRESS of array to receive name 
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ROUTINE: GSYS (Continued) 
Notes : 

(1) Accumulators and carry are restored on exit. 

(2) GSYS must be referenced by an . EXTN statement. 

(3) This routine issues the RDOS system call .GSYS . 

(4) The array to receive the system name requires 13 words. 

(5) The name returned will consist of the name plus its two character extension, 
terminated by a null terminator. 

(6) No error messages are generated. 
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RUN TIME ROUTINE TITLES AND NREL ENTRIES 



To aid the debugging of FORTRAN programs and facilitate the interp fetation of loader symbol 
tables, the following list of run time routines' NREL entry points is given. Tins information 
can be obtained by die user by running an LFE analysis of library programs. The alternate 
names listed here are confined to those that represent mcaniivT"! "n*~r* T ""ints FORT LB 
FMT. LB, and FSYS. LB are listed separately. Tie entry points are listed under each title. 



FORT. LB 










ABSLT 


CC EQ 


CPWR 


DC SIN 


DPWER 


ABS 


rent 
^ tJ x >. 


CPV/i 


neciN- 


nou.' 


AFRTN 


ccos 


CPYAR 


DCSQR 


DREAI. 


AFRTN 


ccos 


CPYARG 


DCSQR 


DREAL 


AINT 


CDIV 


CPYLS 


DCSTR 


DAIMA 


. AINT 


CDV 


CROX1 


DC EST 


DSIGX 


ALG 


CEXPO 


CRX2 


DDC LO 


DSIGX 


ALG 


CEXPO 


CRCX2 


DC LOG 


DSYGX 


.ALG 10 


CFILW 


DCRX2 


DEXPC 


DSIXH 


AMNXO 


CFILW 


GSIX 


DXPC 


DSHIX 


AMAXO 


COT 


CSIX 


DEXPO 


DSNII 


AMINO 


CGT 


c:sqrt 


DEXP 


DSQRI 


AMXO 


CHSAV 


CSQRT 


DEL 


DSQR 


AM XXI 


CHSAV 


CSTOR 


DFL 


DTAXH 


AM AX J 


CHRST 


CFST 


DFS 


DTXH 


MAINT 


CLIP 


CXFLi 


DFA 


EXP 


. AMX1 


CLP 


CIX 


DEB 


EXPO 


. AM XI 


cload 


CXFL2 


DEM 


EXPC 


AMOD 


CFLD 


DC IV 


DFD 


XPC 


. AMOD 


CLOG 


DATE 


DFXL 


FA LOG 


ARC TAN 


CLOG 


DATE 


DFLX 


FA LOG 


DATN2 


CLOSE 


DBREAK 


DFSG 


FARGO 


DATN 


CLOSE 


DBRK 


DELE 


FRG 1 


ARDUM 


FCLOS 


DCABS 


DELT 


ERGO 


. FLSP 


CMPLX 


. DCAB 


DFGE 


ED ELY 


ARGUM 


CMPLX 


DC ADD 


DEGT 


FDELY 


FAROE 


CMl.'L 


DCSUB 


DFFQ 


FFILE 


ARYSZ 


CMUL 


DC AD 


DENG 


FFIL 


ARYSZ 


CXEG 


DCCEQ 


DIM 


F1X1T 


ATX 


CXEG 


CEQ2 


. DIM 


EIXIT 


ATX2 


COMP 


DC COS 


DIPWR 


FIXTD 


ATX 


COMP 


DCCOS 


DIPWR 


FIXRV 


BASC 


COXjG 


DCDIV 


DLOG 


EINTD 


. BASG 


COXJG 


DCDV 


DLOG 


EL 


BDASC 


COS 


DC EXPO 


. LDG1 


M. 


. BDASC 


CS 


CEXP 


DMXMX 


FS 


BREAK 


SX 


DCLOD 


DMAX1 


FA 


BRK 


COS IX 


DCFLD 


DMIXT 


FB 


CABS 


DCS 


DCMPLX 


. DM XI 


EM 


. CABS 


DSX 


DCMPLX 


. DMX1 


FD i';- 


CADD 


GOUT 


DCMUL 


DMOD 


FEQ 1 *• 


CSUB 


COUT 


DCMUL 


. DMOD 


FGE M 


CAD 


CIX 


DCPWR 


DPOLY 


FXL 1( 






CPW2 


DPLY2 


FLX M 



1 E 
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RUN TIME ROUTINE TITLES AND NREL ENTRIES (Continued) 



FLINK 


IABS 


MNMXO 


PLY1 


SINH 


SAVO 


.IABS 


MAXO 


PLY1 


SHIN 


SAV2 




MINO 




SNH 


SAV3 


IDIM 




RATN1 




RSTR 


.IDIM 


MNMX1 


RATN 


SMPY 


QRSTR 




MAX1 




SMPY 




IDINT 


MINI 


RATN2 




FLIP 


.IDIN 


. MX1 


RTN2 


SQRT 


FLP 




.MN1 




SQR 


FLPO 


IFIX 




RCABS 






.IFIX 


MOD 


CABS 


STOP 


FOPEN 




.MOD 




STOP 


FOPEN 


INT 




RDBLK 


PAUSE 




.INT 


MOVE 


RDBLK 




FOVLD 




MOVE 




STREG 


OVLOD 


IPWER 


CMOVE 


RDCABS 


ST1 




IPWR 




RCAB 


ST2 


FPWER 




MOVEF 






FPW 


ISIGN 


MOVEF 


RDFLD 


TAN 




, ISIG 




RDFLD 


TN 


FREAD 




MULT 


RDFCH 




FREAD 


ITEST 


MPY 




TANGE 


FRWRIT 


ICLR 


MPYO 


READL 


DTN 


BRD 


ISET 


DVD 


READL 




BWR 


ITEST 




WRITL 


TANH 






MVBT 


REDS 


TNH 


FREDI 


LDO 


MVBT 


WRITS 




FREDI 


LDO 


MVBC 




THREA 




LD1 




READR 


ALLOC 


FRGLD 


LD2 


MVF 


RE ADR 


THREAD 


FRGLD 


STO 


MVF 








ST1 




REAL 


TIME 


FSBR 


ST2 


MVZ 


.REAL 


TIME 


FSBR 




MVZ 


. AIMA 




FSUBA 


LDREG 






WRCH 




LDR1 


NFRTN 


RESET 


WRCH 


FSEEK 


LDR2 


NFRTN 


RESET 




FSEEK 












T r\C-TD 


XTDT^P 1 


RIPWR 




FSTAT 


LDB 


NR 


RIPWR 




FSTAT 


STO 


NPTR3 


RTER 




FSWAP 


LE 


NR3 


RTER 




FBACK 


LE 




RTEO 




FCHAN 


LT 


NPRTR 


RTES 




FSWAP 


GE 
GT 


NR2 


SDVD 




FTIME 




OPEN 


SDVD 




FGTIM 


MAD 


APPEND 






FSTIM 


MAD 


OPEN 


SIGN 






MADO 


MTOPD 


SIGN 




I 






SYGN 




.1 




OVFLO 
OVERF 
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FMT. LB 






ABORT 


HOLD 


TOVLY 


ABORT 


HOLD 


TOVRL 
TOVLD 


ASSOC 

a ccnr 


IOPC 
IOPC 
IOPROG 


OVWRT 
TRNON 


CHNGE 




TRNON 


CHNGE 
FACAL 


ITASK 
ITASK 


TUMOD 
SIvISK 


ASUSP 
AKILL 
ARDY 


IXMT 
IXMT 


TXMT 
XMTT 


FOVLY 


MTI 
.1 


IXMTT 
XMTTW 


FOVLD 
FOVRL 


ITCB 
FERTO 


RECC 
XSRH 


FPEND 
SUSP 
PEND 


FERT1 
FERTN 
IOPTR 




FPRI 
PRI 


OVEXT 
OVEXT 
OVEXX 




FQTASK 
FQTAS 


OVKIL 
OVKIL 




FTASK 


OVKIX 




FTASK 


RELSE 




FTMAX 


RELSE 




FTMAX 
TMAX2 
SYST2 


START 
START 




TSAVE 

TKILL 

KILL 

CTASK 

SVVAR 


TACAL 
TAKIL 
TAPEN 

TAUNP 




TNXTl 

TUNLK 

TLINK 

TREL 

LNKPR 

TERCM 


TIDC 
TIDST 
STID 
RTID 
KTID 




LQTSC 
QTCNT 
TIDSR 


TPEND 
TPEND 




FXMT 
XMT 


TPRI 
TPRI 




XMTW 
REC 


TQTAS 
TQTSK 






QTCK 
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FSYS. LB 






BOOT 


GCIX 


LTDATE 


BOOT 


GC1X 


I TDATE 


CDIR 


gcout 


WROPR 


CDIR 


GCOUT 


WROPR 


CHLAT 


GDIR 




CHLAT 


GDIR 




CHSTS 


GFREQ 




CHSTS 


GFREQ 




CPART 


GSYS 




CPART 


GSYS 




DIR 


GTATR 




DIR 


GTATR 




DLINK 


1CMN 




DLINK 


ICMX 




DUCLK 


I NIT 




DUCLK 


INIT 




DULNK 
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